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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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