A106626 Count value of k in A104758.
4, 5, 5, 4, 4, 7, 7, 5, 5, 6, 6, 10, 8, 6, 7, 7, 7, 7, 7, 13, 10, 8, 8, 8, 8, 9, 8, 9, 9, 16, 11, 9, 9, 10, 10, 9, 10, 10, 10, 11, 10, 19, 13, 10, 11, 11, 11, 12, 11, 11, 12, 11, 12, 12, 12, 22, 14, 12, 12, 13, 12, 13, 12, 13, 13, 13, 13, 13, 13, 14, 13, 25, 16, 13, 14, 14, 14, 14, 14, 14
Offset: 1
Keywords
Crossrefs
Cf. A104758.
Programs
-
Mathematica
f[n_] := Floor[(n + 1)^(2/3)] - Floor[n^(1/3)] + If[ IntegerQ[n^(1/3)], 1, 0]; t = Table[ f[n], {n, 0, 867}]; Count[t, # ] & /@ Range[81]
Comments