cp's OEIS Frontend

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.

A372044 Records in A030000.

This page as a plain text file.
%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