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 A372044 #20 Apr 24 2024 12:59:16 %S A372044 10,15,40,43,52,58,66,111,114,136,170,171,196,215,271,286,383,519,571, %T A372044 611,756,758,809,1651,1889,2234,2560,2750,3153,5078,5126,5876,6075, %U A372044 6382,6472,8531,8876,9112,9598,14847,17085,17300,17700,20964,26478,28019,28459,28964,32407,32804 %N A372044 Records in A030000. %H A372044 David A. Corneth, <a href="/A372044/a372044.gp.txt">PARI program</a> %e A372044 From _David A. Corneth_, Apr 17 2024: (Start) %e A372044 10 is in the sequence as A030000(0) = 10. %e A372044 15 is the next term after 10 as the next record in A030000 occurs at k = 7 and A030000(7) = 15. (End) %t A372044 d2k[k_] := d2k[k] = IntegerString[2^k]; %t A372044 A030000[n_] := Block[{d = IntegerString[n], k = -1}, While[StringFreeQ[d2k[++k], d]]; k]; %t A372044 Block[{upto = 10000, n = -1, a, r = -1}, Reap[While[++n <= upto, If[(a = A030000[n]) > r, Sow[r = a]]]][[2,1]]] %o A372044 (PARI) \\ See PARI link %Y A372044 Cf. A030000, A371887, A372045. %K A372044 nonn,base %O A372044 1,1 %A A372044 _Paolo Xausa_, Apr 17 2024 %E A372044 More terms from _David A. Corneth_, Apr 17 2024