OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[2000], PrimeQ[DivisorSigma[1, #]+DivisorSigma[1, DivisorSigma[ 1, #]]]&] (* Harvey P. Dale, Apr 02 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Feb 23 2002
STATUS
approved