OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
MATHEMATICA
ok3Q[n_]:=And@@(MemberQ[{2, 3, 5, 7}, #]&/@IntegerDigits[n]); Select[3Range[0, 1000], ok3Q] (* Harvey P. Dale, Mar 22 2011 *)
PROG
(Python)
def pd(n): return set(str(n)) <= set("2357") # has only prime digits
def aupto(limit): return [m for m in range(0, limit+1, 3) if pd(m)]
print(aupto(3000)) # Michael S. Branicky, Mar 27 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 08 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 03 2003
STATUS
approved