A351715 -id:A351715 - cp's OEIS frontend

A364007 Numbers k such that k and k+1 are both Wythoff-Niven numbers (A364006).

3, 6, 7, 20, 39, 51, 54, 55, 90, 135, 143, 294, 305, 321, 356, 365, 369, 374, 375, 376, 784, 800, 924, 978, 979, 980, 986, 1904, 1945, 1970, 2043, 2199, 2232, 2289, 2394, 2424, 2439, 2499, 2525, 2562, 2580, 2583, 4185, 4598, 4707, 4774, 4790, 4796, 4879, 5004

Offset: 1

Amiram Eldar, Jul 01 2023

A035508(n) = Fibonacci(2*n+2) - 1 is a term for n >= 2 since A135818(Fibonacci(2*n+2) - 1) = A135818(Fibonacci(2*n+2)) = 1.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A035508, A135818.
Subsequence of A364006.
Subsequences: A364008, A364009.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352509.

seq[count_, nConsec_] := Module[{cn = wnQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ cn, c++; AppendTo[s, k - nConsec]]; cn = Join[Rest[cn], {wnQ[k]}]; k++]; s]; seq[50, 2] (* using the function wnQ[n] from A364006 *)

A364124 Numbers k such that k and k+1 are both Stolarsky-Niven numbers (A364123).

Original entry on oeis.org

8, 56, 84, 159, 195, 224, 384, 399, 405, 995, 1140, 1224, 1245, 1295, 1309, 1419, 1420, 1455, 1474, 1507, 2585, 2597, 2600, 2680, 2681, 2727, 2744, 2750, 2799, 2855, 3122, 3311, 3339, 3345, 3618, 3707, 3795, 4004, 6770, 6774, 6984, 6985, 7014, 7074, 7154, 7405

Offset: 1

Amiram Eldar, Jul 07 2023

Amiram Eldar, Table of n, a(n) for n = 1..10000

Subsequence of A364123.
Subsequences: A364125, A364126.
Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352343, A352509.

seq[count_, nConsec_] := Module[{cn = stolNivQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ cn, c++; AppendTo[s, k - nConsec]]; cn = Join[Rest[cn], {stolNivQ[k]}]; k++]; s]; seq[50, 2] (* using the function stolNivQ[n] from A364123 *)

lista(count, nConsec) = {my(cn = vector(nConsec, i, isStolNivQ(i)), c = 0, k = nConsec + 1); while(c < count, if(vecsum(cn) == nConsec, c++; print1(k-nConsec, ", ")); cn = concat(vecextract(cn, "^1"), isStolNivQ(k)); k++);} \\ using the function isA364123(n) from A364123
lista(50, 2)

cp's OEIS Frontend

A364007 Numbers k such that k and k+1 are both Wythoff-Niven numbers (A364006).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica