A334311 Starts of runs of 4 consecutive base phi Niven numbers (A334308).

285129, 1958893, 2501533, 6488440, 7069840, 8803023, 16514327, 23826399, 34031773, 52256248, 68198847, 72969138, 76779087, 77622950, 87430210, 87474672, 96485487, 114137958, 120197293, 136275022, 151444458, 173740578, 174878352, 183872325, 188385855, 196268415

Offset: 1

Author

Amiram Eldar, Apr 22 2020

Keywords

• nonn
• base

Examples

			285129 is a term since 285129, 285130, 285131 and 285132 are all base phi Niven numbers.
		

Links

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

Crossrefs

Cf. A141769, A330933, A331824, A331825, A334308, A334309, A334310.

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]; q3 = phiNivenQ[3]; seq = {}; Do[q4 = phiNivenQ[n]; If[q1 && q2 && q3 && q4, AppendTo[seq, n - 3]]; q1 = q2; q2 = q3; q3 = q4, {n, 4, 10^5}]; seq