|
%I #4 Mar 30 2012 17:40:33
%S 1,11,189211,219131,3912073,251088329,4281405931,5613526973
%N Reverse(Prime(n)) concatenated with Prime(n) (a palindrome) is divisible by n.
%e 189211 is in the sequence since the 189211st prime is 2590087 and 78009522590087 is divisible by 189211
%t i=IntegerDigits; c[x_] := FromDigits[Flatten[{Reverse[i[x]], i[x]}]]; Do[If[Mod[c[Prime[n]], n]==0, Print[n]], {n, 10^6}]
%Y Cf. A085016.
%K base,nonn
%O 0,2
%A _Giovanni Resta_, Jun 18 2003
|
