OFFSET
1,2
EXAMPLE
175 is a term since 175 = 5^2*7 and contains digits 1,5,7 none of which is composite. 175 is a member of A002473.
MAPLE
isA002473 := proc(n) local ifs ; if n <= 10 then true ; else ifs := ifactors(n)[2] ; if max( seq(op(1, i), i=ifs) ) <= 7 then true; else false ; fi ; fi ; end: isA113623 := proc(n) local digs ; if isA002473(n) then if convert(convert(n, base, 10), set) minus {1, 2, 3, 5, 7} <> {} then false ; else true ; fi ; else false ; fi ; end: for n from 1 to 150000 do if isA113623(n) then printf("%d, ", n) ; fi ; od; # R. J. Mathar, Aug 28 2007
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 10 2005
EXTENSIONS
More terms from R. J. Mathar, Aug 28 2007
Name corrected by Andrew Howroyd, Sep 17 2024
STATUS
approved