A099180 Primes p which are greater than p reversed.

31, 41, 43, 53, 61, 71, 73, 83, 97, 211, 241, 251, 271, 281, 311, 331, 401, 421, 431, 433, 443, 461, 463, 491, 503, 521, 523, 541, 563, 571, 593, 601, 613, 631, 641, 643, 653, 661, 673, 683, 691, 701, 733, 743, 751, 761, 773, 811, 821, 823, 827, 853, 857, 863

Offset: 1

Author

Robert G. Wilson v, Oct 01 2004

Keywords

• base
• nonn

Crossrefs

Cf. A209063, A202286.

Programs

Mathematica

Select[ Prime[ Range[ 150]], # > FromDigits[ Reverse[ IntegerDigits[ # ]]] &]

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))M. F. Hasler, Mar 15 2012

PARI

A99180=select( p->A004086(p)M. F. Hasler, Mar 15 2012