%I #16 Nov 05 2015 12:14:46
%S 3,4,6,8,22,22,22,22,33,33,33,44,44,44,55,55,66,66,77,77,77,88,88,99,
%T 99,111,111,111,111,121,131,141,141,141,151,161,161,171,171,181,181,
%U 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
%N Next palindrome after n-th prime.
%H Chai Wah Wu, <a href="/A186700/b186700.txt">Table of n, a(n) for n = 1..10000</a>
%t palQ[n_] := # == Reverse@ # &@ IntegerDigits@ n; Table[k = Prime@ n + 1; While[! palQ@ k, k++]; k, {n, 79}] (* _Michael De Vlieger_, Nov 05 2015 *)
%o (PARI) a(n) = {p = prime(n)+1; while ((d = digits(p)) && (Vecrev(d)!=d), p++); p;} \\ _Michel Marcus_, Nov 05 2015
%Y Cf. A014208, A186698.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Feb 25 2011
|