OFFSET
1,2
COMMENTS
The next term if it exists is greater than 1000.
Note that a(1) = 1, a(2) = 3^2 and a(4) = 11^2 are perfect squares.
EXAMPLE
9 is a term because 9 divides A124271(9) = 108336139407.
MATHEMATICA
s={}; Do[If[!PrimeQ[k], If[Divisible[Sum[(Prime[i]^k-1)/(Prime[i]-1), {i, k}], k], AppendTo[s, k]]], {k, 10^3}]; s (* James C. McMahon, Dec 10 2024 *)
CROSSREFS
KEYWORD
bref,hard,more,nonn
AUTHOR
Alexander Adamchuk, Oct 23 2006
STATUS
approved