OFFSET
1,2
COMMENTS
There are 91 terms up to and including 10 million. - Harvey P. Dale, Oct 04 2016
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..163 (terms 1..91 from Harvey P. Dale)
MATHEMATICA
Select[Range[120000], Divisible[DivisorSigma[1, Prime[#]-1], #]&] (* Harvey P. Dale, Oct 04 2016 *)
PROG
(PARI) for(k=1, 120000, if(sigma(prime(k)-1)%k==0, print1(k, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 05 2002
EXTENSIONS
More terms from Klaus Brockhaus, Feb 07 2002
STATUS
approved