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

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,1

Links

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

Mathematica

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 *)

Prog

(PARI) 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)

Crossrefs

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.

Sequence in context: A144748 A160429 A003722 * A044146 A118772 A212817

Adjacent sequences: A364121 A364122 A364123 * A364125 A364126 A364127

Keyword

nonn,base

Author

Amiram Eldar, Jul 07 2023

Status

approved