OFFSET
1,2
COMMENTS
A value of A038511(0)=1 is artificially introduced which leads to a(1)=1 by definition.
EXAMPLE
MAPLE
isA038511 := proc(n) local pfs; if isprime(n) then false; else pfs := numtheory[factorset](n) ; RETURN( pfs intersect {2, 3, 5, 7} = {}) ; fi; end:
A141864 := proc(n) local k, a ; if n = 1 then 1; else a := 0 ; for k from (n-1)*105 to n*105 do if isA038511(k) then a := a+1 ; fi; od: a; fi; end:
seq(A141864(n), n=1..90) ; # R. J. Mathar, Aug 03 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Sep 15 2008
EXTENSIONS
Edited, a(13) corrected by R. J. Mathar, Aug 03 2009
STATUS
approved