A156113 Seven-digit primes that begin with 1 followed by permutations of digits 2 to 7.
1234657, 1245763, 1246537, 1246573, 1247563, 1254367, 1254637, 1256347, 1257463, 1263547, 1264537, 1264573, 1265347, 1275643, 1276543, 1324567, 1342567, 1342657, 1345627, 1354267, 1356247, 1356427, 1362457, 1425367
Offset: 1
Crossrefs
Cf. A156119.
Programs
-
Mathematica
Select[10^6+FromDigits/@Permutations[Range[2,7]],PrimeQ] (* Zak Seidov, Dec 18 2010 *)
Extensions
Corrected by Ray Chandler, May 25 2009
Comments