login
Prime(n) concatenated with Reverse(Prime(n)) (a palindrome) is divisible by n.
1

%I #4 Mar 30 2012 17:40:33

%S 1,7,11,59,146,319,124243,461867,1446247,4846042,16146448,19466227,

%T 57973091,73661929,208574393,681491953,883910281,1058487166,

%U 1066657966,1112633324

%N Prime(n) concatenated with Reverse(Prime(n)) (a palindrome) is divisible by n.

%e 146 is in the sequence since the 146th prime is 839 and 839938 is divisible by 146

%t i=IntegerDigits; c[x_] := FromDigits[Flatten[{i[x], Reverse[i[x]]}]]; Do[If[Mod[c[Prime[n]], n]==0, Print[n]], {n, 10^6}]

%Y Cf. A085017.

%K base,nonn

%O 0,2

%A _Giovanni Resta_, Jun 18 2003