OFFSET
1,1
MATHEMATICA
Select[Table[p^2 + 100, {p, Prime[Range[200]]}], PrimeQ] (* T. D. Noe, May 01 2012 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Alex Ratushnyak, May 01 2012
STATUS
approved