A115885 The n-th prime minus n gives a palindrome.
1, 2, 3, 4, 5, 6, 8, 32, 55, 57, 61, 71, 90, 95, 99, 114, 116, 126, 135, 137, 171, 173, 182, 230, 349, 399, 415, 457, 488, 610, 653, 739, 903, 951, 997, 1010, 1036, 1050, 1231, 1396, 1478, 1508, 1542, 1612, 1660, 1906, 1948, 2032, 2092, 2152, 2242
Offset: 1
Examples
p(126)-126=575.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
palQ[n_]:=Module[{digs=IntegerDigits[Prime[n]-n]},digs==Reverse[digs]]; Select[Range[2400],palQ] (* Harvey P. Dale, Dec 15 2011 *)
Comments