A334310 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

EXAMPLE

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

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

CROSSREFS

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

Sequence in context: A251207 A233993 A043621 * A293478 A076774 A236447

Adjacent sequences: A334307 A334308 A334309 * A334311 A334312 A334313

KEYWORD

nonn,base

AUTHOR

Amiram Eldar, Apr 22 2020

STATUS

approved