%I #12 Feb 04 2014 15:20:44
%S 9,36,37,54,55,76,79,330,333,352,370,394,405,417,427,456,490,492,498,
%T 504,517,550,583,624,634,652,667,762,795,828,855,874,876,891,898,903,
%U 921,924,925,930,949,960,967,982
%N Numbers n such that the concatenation of n^3 n^2 n^1 n^0 is prime.
%e Example 9 is in the list because the concatenation of 9^3 9^2 9^1 9^0 is 7298191 and this number is prime.
%t Select[Range[1000],PrimeQ[FromDigits[Flatten[IntegerDigits/@ (#^Range[ 3,0,-1])]]]&] (* _Harvey P. Dale_, Jul 27 2011 *)
%Y Cf. A192608, A192609.
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jul 05 2011
|