The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #9 Apr 23 2020 02:02:46
%S 17171,20760,29183,32772,51336,65840,66608,67990,89054,95563,103682,
%T 108910,133990,136512,167598,173640,190094,197218,205478,207364,
%U 223873,241934,247115,248443,252014,258816,261135,278783,285129,285130,289392,325934,326520,335178
%N Starts of runs of 3 consecutive base phi Niven numbers (A334308).
%H Amiram Eldar, <a href="/A334310/b334310.txt">Table of n, a(n) for n = 1..10000</a>
%e 17171 is a term since 17171, 17172 and 17173 are all base phi Niven numbers.
%t 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 Cf. A154701, A328206, A328210, A328214, A330932, A333428, A334308, A334309.
%K nonn,base
%O 1,1
%A _Amiram Eldar_, Apr 22 2020