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 A334310 #9 Apr 23 2020 02:02:46
%S A334310 17171,20760,29183,32772,51336,65840,66608,67990,89054,95563,103682,
%T A334310 108910,133990,136512,167598,173640,190094,197218,205478,207364,
%U A334310 223873,241934,247115,248443,252014,258816,261135,278783,285129,285130,289392,325934,326520,335178
%N A334310 Starts of runs of 3 consecutive base phi Niven numbers (A334308).
%H A334310 Amiram Eldar, <a href="/A334310/b334310.txt">Table of n, a(n) for n = 1..10000</a>
%e A334310 17171 is a term since 17171, 17172 and 17173 are all base phi Niven numbers.
%t A334310 phiDigSum[1] = 1; phiDigSum[n_] := Plus @@ RealDigits[n, GoldenRatio, 2*Ceiling[ Log[GoldenRatio, n] ]][[1]]; phiNivenQ[n_] := Divisible[n, phiDigSum[n]]; q1 = phiNivenQ[1]; q2 = phiNivenQ[2]; seq = {}; Do[q3 = phiNivenQ[n]; If[q1 && q2 && q3, AppendTo[seq, n - 2]]; q1 = q2; q2 = q3, {n, 3, 300000}]; seq
%Y A334310 Cf. A154701, A328206, A328210, A328214, A330932, A333428, A334308, A334309.
%K A334310 nonn,base
%O A334310 1,1
%A A334310 _Amiram Eldar_, Apr 22 2020