This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A334309 #9 Apr 23 2020 02:03:20 %S A334309 1,15,35,90,95,231,644,728,944,1016,1110,1331,1629,1736,1770,1899, %T A334309 1925,2232,2255,2384,2456,2629,2652,2760,3104,3176,3288,3444,3729, %U A334309 3789,3860,4410,4415,4509,4544,4718,4939,4960,5229,5239,5489,5789,5831,5984,6039,6111 %N A334309 Numbers k such that k and k+1 are both base phi Niven numbers (A334308). %H A334309 Amiram Eldar, <a href="/A334309/b334309.txt">Table of n, a(n) for n = 1..10000</a> %e A334309 1 is a term since 1 and 2 are both base phi Niven numbers. %t A334309 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 A334309 Cf. A328205, A328209, A328213, A330927, A330931, A333427, A334308. %K A334309 nonn,base %O A334309 1,2 %A A334309 _Amiram Eldar_, Apr 22 2020