login
A288453
Weird totient numbers: totient abundant numbers (A286265) that are not pseudoperfect totient numbers (A288452).
1
91, 95, 133, 145, 185, 203, 215, 217, 259, 275, 301, 335, 343, 355, 365, 395, 427, 469, 497, 545, 551, 553, 575, 635, 637, 649, 655, 703, 725, 755, 763, 767, 785, 815, 817, 833, 865, 889, 893, 905, 917, 931, 949, 955, 973, 985, 995, 1007, 1027, 1057, 1073
OFFSET
1,1
COMMENTS
Analogous to A006037 (weird numbers) as A082897 (perfect totient numbers) is analogous to A000396 (perfect numbers).
LINKS
EXAMPLE
The set of iterated phi of 91 is {72, 24, 8, 4, 2, 1} and none of its subsets sums to 91.
MATHEMATICA
pseudoPerfectTotQ[n_] := Module[{tots = Most[Rest[FixedPointList[EulerPhi@# &, n]]]}, MemberQ[Total /@ Subsets[tots, Length[tots]], n]];
totAbundantQ[n_] := Plus @@ FixedPointList[EulerPhi@# &, n] > 2*n + 1;
weirdTotient[n_] := totAbundantQ[n] && ! pseudoPerfectTotQ[n];
Select[Range[1100], weirdTotient]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jun 09 2017
STATUS
approved