OFFSET
1,1
COMMENTS
Prime digit = 2, 3, 5 or 7.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MAPLE
isA084984 := proc(n) local dgs ; dgs := convert(convert(n, base, 10), set) ; if dgs intersect {2, 3, 5, 7} <> {} then false; else true; fi; end: A084984 := proc(n) option remember ; local a ; if n = 1 then 1; else for a from procname(n-1)+1 do if isA084984(a) then RETURN(a) ; fi; od; fi; end: A155547 := proc(n) ithprime(A084984(n)) ; end: for n from 1 to 80 do printf("%d, ", A155547(n)) ; od: # R. J. Mathar, Jan 25 2009
MATHEMATICA
Prime[#]&/@Select[Range[200], NoneTrue[IntegerDigits[#], PrimeQ]&] (* Harvey P. Dale, Jan 28 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 24 2009
STATUS
approved