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

Author

Paolo Xausa, Apr 17 2024

Keywords

• nonn
• base

Examples

			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)
		

Links

• David A. Corneth, PARI program

Crossrefs

Cf. A030000, A371887, A372045.

Programs

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]]]

PARI

\\ See PARI link

Extensions

More terms from David A. Corneth, Apr 17 2024