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 A382173 #7 Mar 19 2025 09:03:57 %S A382173 0,1,2,1,6,7,4,2,6,16,1,5,8,14,10,5,10,6,3,15,2,7,13,4,26,24,19,9,1, %T A382173 31,6,10,8,10,20,4,22,2,13,14,11,11,24,5,31,13,8,4,30,80,17,20,30,18, %U A382173 2,11,17,9,14,30,16,5,10,25,36,29,38,6,9,63,16,2,40,64 %N A382173 a(n) is the sum of row n of A382172. %C A382173 The sum of digits (or, equivalently, the number of 1's) of the period of 1/n when expanded in golden ratio base. %H A382173 Amiram Eldar, <a href="/A382173/b382173.txt">Table of n, a(n) for n = 1..10000</a> %e A382173 The first 5 terms and the corresponding rows of A382172 are: %e A382173 n | a(n) | row n %e A382173 ---+------+----------------------------------------------------------- %e A382173 1 | 0 | 0 %e A382173 2 | 1 | 0, 1, 0 %e A382173 3 | 2 | 0, 0, 1, 0, 1, 0, 0, 0 %e A382173 4 | 1 | 0, 0, 1, 0, 0, 0 %e A382173 5 | 6 | 0, 0, 0 ,1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0 %t A382173 a[n_] := Total[RealDigits[1/n, GoldenRatio, A001175[n], -1][[1]]]; Array[a, 100] (* using A001175[n] from A001175 *) %Y A382173 Cf. A000032, A002878, A007733, A055778, A093960, A276350, A382172, A382174, A382175, A382176. %K A382173 nonn,easy,base %O A382173 1,3 %A A382173 _Amiram Eldar_, Mar 17 2025