A248632 Numbers k such that A248631(k+1) = A248631(k).

6, 10, 14, 17, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75, 77, 80, 83, 86, 89, 92, 95, 97, 100, 103, 106, 109, 111, 114, 117, 120, 123, 126, 128, 131, 134, 137, 140, 142, 145, 148, 151, 154, 156, 159, 162, 165, 168, 170, 173

Offset: 1

Author

Clark Kimberling, Oct 11 2014

Keywords

• nonn
• easy

Examples

			(A248631(k+1) = A248631(k)) = (1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1,... ), so that A248632 = (6, 10, 14, ... ).
		

Links

• Clark Kimberling, Table of n, a(n) for n = 1..300

Crossrefs

Cf. A248631, A248630.

Programs

Mathematica

z = 200; p[k_] := p[k] = Sum[(h^2/2^h), {h, 1, k}];
d = N[Table[6 - p[k], {k, 1, z/5}], 12];
f[n_] := f[n] = Select[Range[z], 6 - p[#] < 1/3^n &, 1];
u = Flatten[Table[f[n], {n, 1, z}]]; (* A248629 *)
d = Differences[u];
Flatten[Position[d, 1]];  (* A248630 *)