|
|
A141864
|
|
Frequency of A038511 in the interval [(n-1)*3*5*7,n*3*5*7].
|
|
1
|
|
|
1, 5, 5, 8, 6, 9, 8, 8, 10, 8, 9, 10, 11, 10, 8, 9, 11, 10, 13, 8, 13, 9, 9, 14, 11, 7, 11, 11, 12, 14, 11, 10, 12, 10, 10, 11, 12, 12, 10, 14, 8, 14, 12, 13, 10, 12, 14, 8, 14, 12, 13, 11, 11, 11, 14, 7, 16, 12, 14, 9, 9, 16, 12, 11, 14, 11, 10, 14, 12, 14, 17, 8, 12, 10, 15, 12, 15, 12
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
A value of A038511(0)=1 is artificially introduced which leads to a(1)=1 by definition.
|
|
LINKS
|
|
|
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:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|