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

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Mathematica

palQ[n_] := # == Reverse@ # &@ IntegerDigits@ n; Table[k = Prime@ n + 1; While[! palQ@ k, k++]; k, {n, 79}] (* Michael De Vlieger, Nov 05 2015 *)

Prog

(PARI) a(n) = {p = prime(n)+1; while ((d = digits(p)) && (Vecrev(d)!=d), p++); p; } \\ Michel Marcus, Nov 05 2015

Crossrefs

Cf. A014208, A186698.

Sequence in context: A007749 A063506 A084438 * A350217 A028987 A284615

Adjacent sequences: A186697 A186698 A186699 * A186701 A186702 A186703

Keyword

nonn,base

Author

Harvey P. Dale, Feb 25 2011

Status

approved