OFFSET
1,2
COMMENTS
From Amiram Eldar, May 01 2025: (Start)
Numbers k such that the number of perfect partitions of k-1 is > cototient(k).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[1] = 1; f[n_] := f[n] = DivisorSum[n, f[#] &, # < n &]; Select[Range[1320], f[#] > # - EulerPhi[#] &] (* Amiram Eldar, May 01 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Nov 22 2002
EXTENSIONS
Name corrected by Amiram Eldar, May 01 2025
STATUS
approved
