OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..155
EXAMPLE
285129 is a term since 285129, 285130, 285131 and 285132 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]; 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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Apr 22 2020
STATUS
approved