The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A248632 Numbers k such that A248631(k+1) = A248631(k). 5
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Clark Kimberling, Table of n, a(n) for n = 1..300 EXAMPLE (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, ... ). 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 *) CROSSREFS Cf. A248631, A248630. Sequence in context: A315162 A207870 A315163 * A178246 A190712 A315164 Adjacent sequences:  A248629 A248630 A248631 * A248633 A248634 A248635 KEYWORD nonn,easy AUTHOR Clark Kimberling, Oct 11 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 16 19:42 EDT 2021. Contains 343951 sequences. (Running on oeis4.)