OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..100
MATHEMATICA
Do[ k = 1; While[ ! IntegerQ[ Sqrt[ Prime[ k ] + n*Prime[ k + 1 ] ] ], k++ ]; Print[ Prime[ k ] ], {n, 1, 182} ]
PROG
(PARI) ps(n, k) = prime(n)+k*prime(n+1) k=1; for(n=1, 10^6, if(issquare(ps(n, k)), print1(prime(n), " "); k++; n=0))
(PARI) ps(m, n)= { prime(m) + n*prime(m + 1) }
{ n=0; default(primelimit, 4000000); for (n=1, 100, m=1; while (!issquare(ps(m, n)), m++); write("b064543.txt", n, " ", prime(m)) ) } \\ Harry J. Smith, Sep 18 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Oct 08 2001
STATUS
approved