login
A372044
Records in A030000.
3
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
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
KEYWORD
nonn,base
AUTHOR
Paolo Xausa, Apr 17 2024
EXTENSIONS
More terms from David A. Corneth, Apr 17 2024
STATUS
approved