|
|
A334309
|
|
Numbers k such that k and k+1 are both base phi Niven numbers (A334308).
|
|
16
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|