OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
8 + sigma(8) + sigma(sigma(8)) = 47.
MATHEMATICA
dsQ[n_]:=Module[{dsn=DivisorSigma[1, n]}, PrimeQ[n+dsn+DivisorSigma[1, dsn]]]; Select[Range[400], dsQ] (* Harvey P. Dale, May 15 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved