OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
sort(convert(`union`(seq(select(isprime, map(t -> 3*(10^d-1)/9 + 2*add(10^(s-1), s=t), combinat:-powerset(d))), d=0..10)), list)); # Robert Israel, Jul 21 2015
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{3, 5}, n], PrimeQ], {n, 8}]] (* Vincenzo Librandi, Jul 27 2012 *)
PROG
(Python)
from gmpy2 import is_prime, mpz
from itertools import product
A020462_list = [int(''.join(x)) for n in range(1, 10) for x in product('35', repeat=n) if is_prime(mpz(''.join(x)))] # Chai Wah Wu, Jul 21 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved