A350928 {Partial sums of A095258} + 2.
3, 6, 8, 12, 18, 27, 54, 72, 80, 85, 102, 136, 204, 216, 240, 250, 275, 286, 299, 322, 329, 376, 470, 705, 720, 736, 768, 816, 867, 1156, 1734, 1836, 1872, 1898, 1971, 2190, 2220, 2240, 2254, 2300, 2350, 2820, 2880, 2920, 3066, 3087, 3136, 3164, 3277, 3306, 3325
Offset: 1
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
- Michael De Vlieger, Log-log scatterplot of a(n), b(n), and c(n), n = 1..10^5, where a(n) appears in red, b(n) = A095258(n) in blue, A350929(n) in gold.
Programs
-
Mathematica
c[_] = 0; j = c[1] = 1; s = 3; Reap[Do[d = Divisors[s]; k = 1; While[c[d[[k]]] > 0, k++]; Set[k, d[[k]]]; Set[c[k], i]; Sow[s]; j = k; s += k, {i, 2, 52}]][[-1, -1]]
Comments