|
%I
%S 1,2,5,16,534,7412,17280,146533,633932,1424705,5879645
%N Numbers n such that phi(n) times the n-th prime is a palindrome.
%e phi(17280)*p(17280)=4608*191461=882252288.
%t pppQ[n_]:=Module[{c=IntegerDigits[EulerPhi[n]Prime[n]]},c == Reverse[c]]; Select[Range[6000000],pppQ] (* _Harvey P. Dale_, Aug 01 2012 *)
%Y Cf. A084122, A115891, A115893.
%K nonn,base
%O 1,2
%A _Giovanni Resta_, Feb 06 2006
|
