OFFSET
1,1
MATHEMATICA
Select[ Prime[ Range[ 150]], # > FromDigits[ Reverse[ IntegerDigits[ # ]]] &]
PROG
(PARI) A099180(n)=type(A99180)=="t_VEC" || A99180=[31]; #A99180>=n && return(A99180[n]); my(p=A99180[#A99180]); A99180=concat(A99180, vector(n-#A99180, k, until(A004086(p=nextprime(p+1))<p, ); p)); p \\ M. F. Hasler, Mar 15 2012
(PARI) A99180=select( p->A004086(p)<p, primes(1000)) /* reverse arguments for GP version < 2.4.3 */ \\ M. F. Hasler, Mar 15 2012
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Oct 01 2004
STATUS
approved