OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
sigma(2115)+p(2115)=22201=149^2.
MATHEMATICA
n=0; p=1; seq={}; Do[p = NextPrime[p]; n++; If[IntegerQ @ Sqrt [p + DivisorSigma[1, n]], AppendTo[seq, n]], {10^4}]; seq (* Amiram Eldar, Aug 18 2019 *)
PROG
(PARI) isok(n) = issquare(sigma(n) + prime(n)); \\ Michel Marcus, Jan 11 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved