OFFSET
1,1
COMMENTS
Thus, version 2 (A028388) of the definition of "good primes" is used here. - Harvey P. Dale, May 13 2012
LINKS
Carlos Rivera, Puzzle 273. Consecutive 'good' primes, The Prime Puzzles & Problems Connection.
Eric Weisstein's World of Mathematics, Good Prime.
EXAMPLE
11 is in the sequence because 11 is a palindromic number which is a good prime (11^2>7*13, 11^2>5*17, 11^2>3*19 & 11^2>2*23).
MATHEMATICA
b[n_]:=(For[m=1, m<n&&Prime[n]^2>Prime[n-m]Prime[n+m], m++ ]; m); v={}; Do[If[IntegerDigits[Prime[n]]==Reverse[IntegerDigits[Prime [n]]]&& b[n]==n, v=Append[v, Prime[n]]; Print[v]], {n, 6986301}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Farideh Firoozbakht, Jun 28 2004
STATUS
approved
