login
A099180
Primes p which are greater than p reversed.
3
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
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
Sequence in context: A146333 A109645 A156298 * A156299 A342216 A103490
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Oct 01 2004
STATUS
approved