A334309 Numbers k such that k and k+1 are both base phi Niven numbers (A334308).

1, 15, 35, 90, 95, 231, 644, 728, 944, 1016, 1110, 1331, 1629, 1736, 1770, 1899, 1925, 2232, 2255, 2384, 2456, 2629, 2652, 2760, 3104, 3176, 3288, 3444, 3729, 3789, 3860, 4410, 4415, 4509, 4544, 4718, 4939, 4960, 5229, 5239, 5489, 5789, 5831, 5984, 6039, 6111

Offset: 1

Author

Amiram Eldar, Apr 22 2020

Keywords

• nonn
• base

Examples

			1 is a term since 1 and 2 are both base phi Niven numbers.
		

Links

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

Crossrefs

Cf. A328205, A328209, A328213, A330927, A330931, A333427, A334308.

Programs

Mathematica

phiDigSum[1] = 1; phiDigSum[n_] := Plus @@ RealDigits[n, GoldenRatio, 2*Ceiling[ Log[GoldenRatio, n] ]][[1]]; phiNivenQ[n_] := Divisible[n, phiDigSum[n]]; Select[Range[6000], phiNivenQ[#] && phiNivenQ[# + 1] &]