A372044 Records in A030000.

10, 15, 40, 43, 52, 58, 66, 111, 114, 136, 170, 171, 196, 215, 271, 286, 383, 519, 571, 611, 756, 758, 809, 1651, 1889, 2234, 2560, 2750, 3153, 5078, 5126, 5876, 6075, 6382, 6472, 8531, 8876, 9112, 9598, 14847, 17085, 17300, 17700, 20964, 26478, 28019, 28459, 28964, 32407, 32804

Offset

1,1

Links

Table of n, a(n) for n=1..50.

David A. Corneth, PARI program

Example

From David A. Corneth, Apr 17 2024: (Start)
10 is in the sequence as A030000(0) = 10.
15 is the next term after 10 as the next record in A030000 occurs at k = 7 and A030000(7) = 15. (End)

Mathematica

d2k[k_] := d2k[k] = IntegerString[2^k];
A030000[n_] := Block[{d = IntegerString[n], k = -1}, While[StringFreeQ[d2k[++k], d]]; k];
Block[{upto = 10000, n = -1, a, r = -1}, Reap[While[++n <= upto, If[(a = A030000[n]) > r, Sow[r = a]]]][[2, 1]]]

Prog

(PARI) \\ See PARI link

Crossrefs

Cf. A030000, A371887, A372045.

Sequence in context: A276914 A078818 A194267 * A261853 A259629 A212794

Adjacent sequences: A372041 A372042 A372043 * A372045 A372046 A372047

Keyword

nonn,base

Author

Paolo Xausa, Apr 17 2024

Extensions

More terms from David A. Corneth, Apr 17 2024

Status

approved