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,2

Links

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

Example

1 is a term since 1 and 2 are both 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]]; Select[Range[6000], phiNivenQ[#] && phiNivenQ[# + 1] &]

Crossrefs

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

Sequence in context: A082663 A368231 A109068 * A238232 A061367 A070161

Adjacent sequences: A334306 A334307 A334308 * A334310 A334311 A334312

Keyword

nonn,base

Author

Amiram Eldar, Apr 22 2020

Status

approved