This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A351720 #7 Feb 21 2022 02:30:24
%S A351720 1,175,216,399,656,729,737,759,1000,1991,2716,2820,2925,3970,4068,
%T A351720 4224,4499,4641,5316,5819,6565,6720,6902,7890,9840,10751,11843,12194,
%U A351720 12614,13034,13272,14909,15483,15495,16029,17234,17444,17731,18074,18885,19305,19669,20188
%N A351720 Numbers k such that k and k + 1 are both lazy-Lucas-Niven numbers (A351719).
%H A351720 Amiram Eldar, <a href="/A351720/b351720.txt">Table of n, a(n) for n = 1..10000</a>
%e A351720 175 is a term since 175 and 176 are both lazy-Lucas-Niven numbers: the maximal Lucas representation of 175, A130311(175) = 1110110101, has 7 1's and 175 is divisible by 5, and the maximal Lucas representation of 176, A130311(7) = 1110110111, has 8 1's and 176 is divisible by 8.
%t A351720 lazy = Select[IntegerDigits[Range[10^6], 2], SequenceCount[#, {0, 0}] == 0 &]; t = Total[#*Reverse@LucasL[Range[0, Length[#] - 1]]] & /@ lazy; s = FromDigits /@ lazy[[TakeWhile[Flatten[FirstPosition[t, #] & /@ Range[Max[t]]], NumberQ]]]; SequencePosition[Divisible[Range[Length[s]], Plus @@@ IntegerDigits[s]], {True, True}][[;; , 1]]
%Y A351720 Cf. A000032, A130311, A131343.
%Y A351720 Subsequence of A351719.
%Y A351720 A351721 is a subsequence.
%Y A351720 Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715.
%K A351720 nonn,base
%O A351720 1,2
%A A351720 _Amiram Eldar_, Feb 17 2022