close
login
A078347
Numbers k such that the number of ordered factorizations of k is > cototient(k).
1
1, 24, 36, 48, 72, 96, 108, 120, 144, 160, 168, 180, 192, 216, 240, 288, 320, 336, 360, 384, 432, 480, 504, 540, 576, 600, 640, 648, 672, 720, 756, 768, 792, 800, 840, 864, 896, 900, 960, 1008, 1056, 1080, 1120, 1152, 1200, 1248, 1260, 1280, 1296, 1320
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).
Numbers k such that A074206(k) = A002033(k-1) > A051953(k). (End)
LINKS
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