OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
select(isprime, [seq(seq((10^m-1)/9 + 4*10^j, j=0..m-1), m=1..40)]); # Robert Israel, Jan 03 2017
MATHEMATICA
Flatten[ Table[ Select[ Sort[ FromDigits /@ Permutations[Flatten[{5, Table[1, {n}]} ]]], PrimeQ[ # ] &], {n, 0, 21}]]
Select[Prime[Range[3 10^6]], Times@@IntegerDigits[#] == 5 &] (* Vincenzo Librandi, Jul 27 2016 *)
PROG
(Magma) [p: p in PrimesUpTo(3*10^8) | &*Intseq(p) eq 5]; // Vincenzo Librandi, Jul 27 2016
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov and Robert G. Wilson v, May 20 2005
STATUS
approved