A186700 Next palindrome after n-th prime.
3, 4, 6, 8, 22, 22, 22, 22, 33, 33, 33, 44, 44, 44, 55, 55, 66, 66, 77, 77, 77, 88, 88, 99, 99, 111, 111, 111, 111, 121, 131, 141, 141, 141, 151, 161, 161, 171, 171, 181, 181, 191, 202, 202, 202, 202, 212, 232, 232, 232, 242, 242, 242, 252, 262, 272, 272, 272, 282, 282, 292, 303, 313, 313, 323, 323, 333, 343, 353, 353, 363, 363, 373, 383, 383, 393, 393, 404, 404
Offset: 1
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
palQ[n_] := # == Reverse@ # &@ IntegerDigits@ n; Table[k = Prime@ n + 1; While[! palQ@ k, k++]; k, {n, 79}] (* Michael De Vlieger, Nov 05 2015 *) -
PARI
a(n) = {p = prime(n)+1; while ((d = digits(p)) && (Vecrev(d)!=d), p++); p;} \\ Michel Marcus, Nov 05 2015