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