OFFSET
1,1
COMMENTS
All terms are a product of at least two terms of A020465. - David A. Corneth, Oct 09 2020
LINKS
FORMULA
Sum_{n>=1} 1/a(n) = Product_{p in A020465} (p/(p - 1)) - Sum_{p in A020465} 1/p - 1 = 0.0279830135... . - Amiram Eldar, May 22 2022
MATHEMATICA
pf47Q[n_]:=Module[{u=Union[Flatten[IntegerDigits/@Transpose[ FactorInteger[ n]][[1]]]]}, !PrimeQ[n]&&(u=={4}||u=={7}||u=={4, 7})]; Select[ Range[ 2200000], pf47Q] (* Harvey P. Dale, Jun 05 2013 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Patrick De Geest, Dec 15 1998
STATUS
editing