OFFSET
1,1
LINKS
MAPLE
f:= n-> (l-> add([0, 3, 4, 5][l[j]+1]*10^(j-1), j=1..nops(l)))(convert(n, base, 4)):
select(isprime, [seq(f(i), i=0..695)])[]; # Alois P. Heinz, Jul 15 2025
MATHEMATICA
Select[FromDigits /@ Tuples[{0, 3, 4, 5}, n], PrimeQ]
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jason Bard, Jul 15 2025
STATUS
approved
