login
The n-th prime minus n gives a palindrome.
4

%I #5 Nov 21 2013 12:48:47

%S 1,2,3,4,5,6,8,32,55,57,61,71,90,95,99,114,116,126,135,137,171,173,

%T 182,230,349,399,415,457,488,610,653,739,903,951,997,1010,1036,1050,

%U 1231,1396,1478,1508,1542,1612,1660,1906,1948,2032,2092,2152,2242

%N The n-th prime minus n gives a palindrome.

%H Harvey P. Dale, <a href="/A115885/b115885.txt">Table of n, a(n) for n = 1..1000</a>

%e p(126)-126=575.

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

%Y Cf. A084122, A115884.

%K nonn,base

%O 1,2

%A _Giovanni Resta_, Feb 06 2006