login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A248229 Numbers k such that A248227(k+1) = A248227(k) + 1. 5
2, 3, 5, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 26, 28, 29, 31, 32, 33, 35, 36, 38, 39, 41, 42, 43, 45, 46, 48, 49, 51, 52, 54, 55, 56, 58, 59, 61, 62, 64, 65, 67, 68, 69, 71, 72, 74, 75, 77, 78, 80, 81, 82, 84, 85, 87, 88, 90, 91, 93, 94, 95 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Since A248227(k+1) - A248227(k) is in {0,1} for k >= 1, A248228 and A248229 are complementary.
LINKS
EXAMPLE
The difference sequence of A248227 is (0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, ...), so that A248228 = (1, 4, 8, 11, 14, 17, 2,...) and A248229 = (2, 3, 5, 6, 7, 9, 10, 12, 13, 15, 16, 18,...), the complement of A248228.
MATHEMATICA
$MaxExtraPrecision = Infinity; z = 400; p[k_] := p[k] = Sum[1/h^4, {h, 1, k}];
N[Table[Zeta[4] - p[n], {n, 1, z/10}]]
f[n_] := f[n] = Select[Range[z], Zeta[4] - p[#] < 1/n^3 &, 1];
u = Flatten[Table[f[n], {n, 1, z}]] (* A248227 *)
Flatten[Position[Differences[u], 0]] (* A248228 *)
Flatten[Position[Differences[u], 1]] (* A248229 *)
f = Table[Floor[1/(Zeta[4] - p[n])], {n, 1, z}] (* A248230 *)
CROSSREFS
Sequence in context: A364153 A230391 A284931 * A207672 A038161 A158746
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 05 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 13 02:27 EDT 2024. Contains 374260 sequences. (Running on oeis4.)