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 A342429 #9 Mar 12 2021 03:34:22
%S A342429 1649373,4029519,15281054,31906263,43387386,58198173,94468958,
%T A342429 100084949,131393766,131986502,140282279,156786124,211004079,
%U A342429 246960048,253000850,278206663,310135917,330168203,351204398,363280904,412296883,504736647,515831624,537255647,566300238
%N A342429 Starts of runs of 4 consecutive Niven numbers in base 3/2 (A342426).
%C A342429 Are there 5 consecutive Niven numbers in base 3/2? There are no such numbers below 3*10^9.
%H A342429 Amiram Eldar, <a href="/A342429/b342429.txt">Table of n, a(n) for n = 1..100</a>
%e A342429 1649373 is a term since 1649373, 1649374, 1649375 and 1649376 are all Niven numbers in base 3/2.
%t A342429 s[0] = 0; s[n_] := s[n] = s[2*Floor[n/3]] + Mod[n, 3]; q[n_] := Divisible[n, s[n]]; v = q /@ Range[4]; seq = {}; Do[v = Join[Rest[v], {q[k]}]; If[And @@ v, AppendTo[seq, k - 3]], {k, 4, 10^7}]; seq
%Y A342429 Subsequence of A342426, A342427 and A342428.
%Y A342429 Similar sequences: A141769 (decimal), A328207 (factorial), A328211 (Zeckendorf), A328215 (lazy Fibonacci), A330933 (binary), A334311 (base phi), A331824 (negabinary).
%K A342429 nonn,base
%O A342429 1,1
%A A342429 _Amiram Eldar_, Mar 11 2021