A334310 Starts of runs of 3 consecutive base phi Niven numbers (A334308).

17171, 20760, 29183, 32772, 51336, 65840, 66608, 67990, 89054, 95563, 103682, 108910, 133990, 136512, 167598, 173640, 190094, 197218, 205478, 207364, 223873, 241934, 247115, 248443, 252014, 258816, 261135, 278783, 285129, 285130, 289392, 325934, 326520, 335178

Offset: 1

Author

Amiram Eldar, Apr 22 2020

Keywords

• nonn
• base

Examples

			17171 is a term since 17171, 17172 and 17173 are all base phi Niven numbers.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A154701, A328206, A328210, A328214, A330932, A333428, A334308, A334309.

Programs

Mathematica

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