OFFSET
0,5
COMMENTS
Inspired by the original Inventory sequence (A342585). It follows from the definition that zero appears infinitely many times. Every nonzero number number appears because the number of zero terms increments at every extension of the sequence between consecutive zeros. Since the count for each number of divisors increments (eventually) as the sequence extends, it follows that every number appears infinitely many times.
The count of terms divisible by every prime is the number of zeros, the count of terms divisible by no prime is the number of 1s, the count of terms divisible by one prime (once) is the number of primes, etc.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..10000 (rows 0 <= n <= 836, flattened)
Michael De Vlieger, Log-log scatterplot of row n for 1 <= n <= 2^16 (1199674 terms), with color function showing k, black represents the number of 0s, red 1s, orange primes, etc.
EXAMPLE
a(0)=0 because at this point there are zero terms divisible by every prime. a(1)=1 because there is now one term (0) which is divisible by every prime. a(2)=1 because there is now one term (1) with no prime divisor. a(3)=0 because at this point there is no term divisible by one prime, and so on.
As an irregular triangle the sequence begins:
0;
1, 1, 0;
2, 2, 2, 0;
3, 2, 5, 0;
4, 2, 7, 1, 0;
5, 3, 10, 2, 0;
6, 3, 12, 3, 1, 0;
7, 4, 14, 5, 1, 0;
8, 5, 16, 5, 2, 1, 0;
9, 6, 18, 7, 3, 1, 0;
10, 7, 21, 9, 3, 1, 0;
11, 8, 23, 10, 4, 1, 0; etc.
MATHEMATICA
Block[{a = {}, c, k, m}, c[-1] = 0; Do[k = -1; c[-1]++; AppendTo[a, 0]; While[IntegerQ[c[k]], AppendTo[a, c[k]]; Set[m, PrimeOmega[c[k]]]; If[IntegerQ[c[m]], c[m]++, Set[c[m], 1]]; k++], 10]; a] (* Michael De Vlieger, Sep 15 2021 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
David James Sycamore, Sep 13 2021
STATUS
approved