OFFSET
1,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1500
MAPLE
with(numtheory):nn:=2000:for n from 1 to nn do:p:=lambda(n): s:=sum('lambda(j)', 'j'=1..n):if irem(s, p)=0 then printf(`%d, `, n):else fi:od:
MATHEMATICA
nn = 2000; sums = Accumulate[CarmichaelLambda[Range[nn]]]; Select[Range[nn], Mod[sums[[#]], CarmichaelLambda[#]] == 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, May 26 2014
STATUS
approved