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,1

Links

Table of n, a(n) for n=1..54.

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

Cf. A209063, A202286.

Sequence in context: A146333 A109645 A156298 * A156299 A342216 A103490

Adjacent sequences: A099177 A099178 A099179 * A099181 A099182 A099183

Keyword

base,nonn

Author

Robert G. Wilson v, Oct 01 2004

Status

approved