A357371 a(1) = 1, thereafter, first differences of A357370.
1, 2, 4, 6, 8, 12, 14, 17, 18, 20, 23, 24, 27, 28, 30, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 56, 57, 60, 63, 65, 67, 68, 72, 73, 74, 75, 76, 79, 82, 83, 85, 86, 89, 90, 92, 94, 96, 98, 100, 103, 104, 107, 109, 110, 112, 114, 116, 118, 120, 122, 124, 126
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
nn = 63; c[_] = 0; i = 1; {1}~Join~Differences@ Reap[Do[k = 0; While[c[k] > 0, Set[m, c[k]]; c[m]++; c[k]++; i += 2; k++]; Set[m, c[k]]; c[m]++; c[k]++; Sow[(i + 1)/2]; i += 2, {n, nn}]][[-1, -1]]
Comments