OFFSET
1,1
COMMENTS
Are there 5 consecutive Niven numbers in base 3/2? There are no such numbers below 3*10^9.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..100
EXAMPLE
1649373 is a term since 1649373, 1649374, 1649375 and 1649376 are all Niven numbers in base 3/2.
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Mar 11 2021
STATUS
approved