OFFSET
1,2
COMMENTS
The majority are congruent to 0 modulo 6.
29292581888, 38187663360, 97473314304, 114918027264, 147840201728 and 208686261248 are also terms. - Donovan Johnson, Aug 30 2011
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..66 (terms < 10^11, first 60 terms from Donovan Johnson)
EXAMPLE
The divisors of 72 are 1, 2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72. phi(72) = 24 = 1 + 2 + 3 + 4 + 6 + 8; hence 72 belongs to the sequence.
MATHEMATICA
Select[Range[10000], MemberQ[FoldList[Plus, 0, Divisors[#]], EulerPhi[#]] &] (* T. D. Noe, Aug 29 2011 *)
Select[Range[8*10^6], MemberQ[Accumulate[Divisors[#]], EulerPhi[#]]&] (* Harvey P. Dale, Nov 11 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Jul 09 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Jul 15 2002
STATUS
approved