OFFSET
1,1
EXAMPLE
PROG
(Rexx) keep(add(square(composite(1, 100)), prime(1, 100)), isprime) - Leonard Galitz
(PARI) lista(nn) = {for (n = 1, nn, if (isprime(p = A002808(n)^2 + prime(n)), print1(p, ", ")); ); } \\ Michel Marcus, Jun 15 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Leonard Galitz (grovehall1938(AT)comcast.net), Aug 18 2010
EXTENSIONS
More terms from Michel Marcus, Jun 15 2013
STATUS
approved