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 A382174 #5 Mar 19 2025 09:03:51 %S A382174 5,6,10,14,25,30,50,125,150,250,625,750,1250,3125,3750,6250,15625, %T A382174 18750,31250,78125 %N A382174 Numbers k such that A382173(k) >= k. %C A382174 A382173(k) = k for k = 14 and for no other number below 80000. %e A382174 n | a(n) | A382173(a(n)) %e A382174 --+------+--------------- %e A382174 1 | 5 | 6 %e A382174 2 | 6 | 7 %e A382174 3 | 10 | 16 %e A382174 4 | 14 | 14 %e A382174 5 | 25 | 26 %e A382174 6 | 30 | 31 %e A382174 7 | 50 | 80 %e A382174 8 | 125 | 134 %e A382174 9 | 150 | 161 %e A382174 10 | 250 | 412 %t A382174 q[k_] := Total[RealDigits[1/k, GoldenRatio, A001175[k], -1][[1]]] >= k; Select[Range[1000], q] (* using A001175[n] from A001175 *) %Y A382174 Cf. A382172, A382173, A382175, A382176. %K A382174 nonn,base,more %O A382174 1,1 %A A382174 _Amiram Eldar_, Mar 17 2025