

A062525


8^a(n) is smallest power of 8 containing the string 'n'.


2



4, 0, 3, 5, 2, 3, 2, 5, 1, 4, 10, 14, 3, 9, 6, 7, 8, 9, 10, 12, 7, 6, 17, 21, 10, 17, 6, 5, 9, 20, 26, 25, 5, 21, 9, 15, 12, 10, 13, 14, 4, 10, 9, 14, 6, 11, 14, 12, 17, 13, 18, 3, 7, 29, 13, 13, 16, 25, 11, 11, 20, 25, 6, 27, 2, 14, 24, 8, 5, 20, 23, 7, 8, 10, 10, 13
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


COMMENTS

Table[k = 0; While[ StringPosition[ ToString[8^k], ToString[n] ] == {}, k++ ]; k, {n, 0, 75} ]
Join[{4,0},With[{c=Table[{n,IntegerDigits[8^n]},{n,50}]},Table[ SelectFirst[ c,SequenceCount[ #[[2]],IntegerDigits[k]]>0&],{k,2,80}]][[All,1]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 13 2019 *)


LINKS

Table of n, a(n) for n=0..75.


CROSSREFS

Cf. A030000.
Sequence in context: A092512 A060568 A073466 * A085655 A153615 A281531
Adjacent sequences: A062522 A062523 A062524 * A062526 A062527 A062528


KEYWORD

base,nonn


AUTHOR

Robert G. Wilson v, Jun 24 2001


STATUS

approved



