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

Author

Giovanni Resta, Feb 06 2006

Keywords

• nonn
• base

Examples

			p(126)-126=575.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A084122, A115884.

Programs

Mathematica

palQ[n_]:=Module[{digs=IntegerDigits[Prime[n]-n]},digs==Reverse[digs]]; Select[Range[2400],palQ] (* Harvey P. Dale, Dec 15 2011 *)