[go: up one dir, main page]

login
A152033
a(n) is the least n-digit prime p whose reversal is a prime q < p.
1
31, 311, 1201, 11701, 106501, 1020101, 10021001, 100440001, 1000200001, 10003810001, 100011400001, 1000039200001, 10000084000001, 100000381000001, 1000001790000001, 10000004700000001, 100000033900000001, 1000000101700000001, 10000000484400000001, 100000001019000000001
OFFSET
2,1
MATHEMATICA
Do[ p = NextPrime[10^(n - 1) ]; Do[ p1 = FromDigits[ Reverse[IntegerDigits[p]]]; If[PrimeQ[p1] && p1 < p, Print[{n, p}]; Break[]]; p = NextPrime[p], {10^9}], {n, 2, 16}];
CROSSREFS
Subsequence of A109309.
Sequence in context: A368953 A368946 A042870 * A125394 A200913 A212235
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 20 2008
EXTENSIONS
a(17)-a(21) from Chai Wah Wu, Sep 11 2019
STATUS
approved