|
%I #9 Apr 23 2020 02:03:20
%S 1,15,35,90,95,231,644,728,944,1016,1110,1331,1629,1736,1770,1899,
%T 1925,2232,2255,2384,2456,2629,2652,2760,3104,3176,3288,3444,3729,
%U 3789,3860,4410,4415,4509,4544,4718,4939,4960,5229,5239,5489,5789,5831,5984,6039,6111
%N Numbers k such that k and k+1 are both base phi Niven numbers (A334308).
%H Amiram Eldar, <a href="/A334309/b334309.txt">Table of n, a(n) for n = 1..10000</a>
%e 1 is a term since 1 and 2 are both base phi Niven numbers.
%t 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] &]
%Y Cf. A328205, A328209, A328213, A330927, A330931, A333427, A334308.
%K nonn,base
%O 1,2
%A _Amiram Eldar_, Apr 22 2020
|
