1,2

Numbers k such that A352340(k) | k and A352340(k+1) | k+1.

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

24 is a term since 24 and 25 are both lazy-Pell-Niven numbers: the maximal Pell representation of 24, A352339(24) = 1210, has the sum of digits A352340(24) = 1+2+1+0 = 4 and 24 is divisible by 4, and the maximal Pell representation of 25, A352339(25) = 1211, has the sum of digits A352340(25) = 1+2+1+1 = 5 and 25 is divisible by 5.

pell[1] = 1; pell[2] = 2; pell[n_] := pell[n] = 2*pell[n - 1] + pell[n - 2]; pellp[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[pell[k] <= m, k++]; k--; AppendTo[s, k]; m -= pell[k]; k = 1]; IntegerDigits[Total[3^(s - 1)], 3]]; lazyPellNivenQ[n_] := Module[{v = pellp[n]}, nv = Length[v]; i = 1; While[i <= nv - 2, If[v[[i]] > 0 && v[[i + 1]] == 0 && v[[i + 2]] < 2, v[[i ;; i + 2]] += {-1, 2, 1}; If[i > 2, i -= 3]]; i++]; i = Position[v, _?(# > 0 &)]; Divisible[n, Plus @@ v[[i[[1, 1]] ;; -1]]]]; Select[Range[10^4], lazyPellNivenQ[#] && lazyPellNivenQ[#+1] &]

Cf. A352339, A352340.

Subsequence of A352342.

Subsequences: A352344, A352345.

Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321.

Sequence in context: A304547 A371174 A045558 * A022761 A090386 A239596

Adjacent sequences: A352340 A352341 A352342 * A352344 A352345 A352346

nonn,base

Amiram Eldar, Mar 12 2022

approved