OFFSET
1,2
COMMENTS
a(n) gives the number of times that the n-th composite number occurs in A070229.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
N:= 1000: # to consider composites <= N
f:= proc(c) local p, t;
if isprime(c) then return NULL fi;
nops(select(p -> max(numtheory:-factorset(c/p-1))<=p, numtheory:-factorset(c)))
end proc:
map(f, [$4..N]); # Robert Israel, May 02 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Gionata Neri, Nov 12 2015
EXTENSIONS
a(87) corrected by Robert Israel, May 02 2017
STATUS
approved