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 A351719 #9 Mar 12 2022 12:13:25
%S A351719 1,2,4,6,9,12,16,20,25,40,42,54,60,66,78,84,91,96,104,112,120,126,144,
%T A351719 154,161,168,175,176,180,182,184,192,203,210,216,217,224,232,234,240,
%U A351719 243,264,270,280,288,304,306,310,315,320,322,328,336,344,350,360,378
%N A351719 Lazy-Lucas-Niven numbers: numbers divisible by the number of terms in their maximal (or lazy) representation in terms of the Lucas numbers (A130311).
%C A351719 Numbers k such that A131343(k) | k.
%H A351719 Amiram Eldar, <a href="/A351719/b351719.txt">Table of n, a(n) for n = 1..10000</a>
%e A351719 6 is a term since its maximal Lucas representation, A130311(6) = 111, has A131343(6) = 3 1's and 6 is divisible by 3.
%t A351719 lazy = Select[IntegerDigits[Range[3000], 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]]]; Position[Divisible[Range[Length[s]], Plus @@@ IntegerDigits[s]], True] // Flatten
%Y A351719 Cf. A000032, A130311, A131343.
%Y A351719 Subsequences: A351720, A351721.
%Y A351719 Similar sequences: A005349, A049445, A064150, A064438, A064481, A118363, A328208, A328212, A331085, A333426, A342726, A334308, A331728, A342426, A344341, A351714.
%K A351719 nonn,base
%O A351719 1,2
%A A351719 _Amiram Eldar_, Feb 17 2022