%I #19 Dec 18 2019 13:30:26
%S 23,51,61,113,137,179,183,203,217,229,271,273,299,307,317,331,361,399,
%T 449,467,481,633,699,701,713,797,819,833,947,993,1021,1039,1073,1117,
%U 1187,1193,1269,1371,1407,1413,1427,1437,1451,1453,1467,1469,1511,1521
%N Numbers n such that the concatenation of n^0 n^1 n^2 n^3 n^4 is prime.
%H G. C. Greubel, <a href="/A165432/b165432.txt">Table of n, a(n) for n = 1..10000</a>
%e Example 23 is in the list because the concatenation of 23^0 23^1 23^2 23^3 23^4 is 12352912167279841 and this number is prime
%t Select[Range[2000], PrimeQ[FromDigits[Flatten[{IntegerDigits[#^0], IntegerDigits[#^1], IntegerDigits[#^2], IntegerDigits[#^3], IntegerDigits[#^4]}]]] &]
%t Select[Range[2000],PrimeQ[FromDigits[Flatten[IntegerDigits/@(#^Range[0,4])]]]&] (* _Harvey P. Dale_, Dec 18 2019 *)
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jul 05 2011
|