OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
9 is in the sequence because 6^9 = 10077696 contains 9 as a substring. - David A. Corneth, Aug 13 2021
MATHEMATICA
Select[Range[250], SequenceCount[IntegerDigits[6^#], IntegerDigits[#]]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 03 2018 *)
PROG
(Python)
def ok(n): return str(n) in str(6**n)
print(list(filter(ok, range(241)))) # Michael S. Branicky, Aug 13 2021
(PARI) is(n) = { my(digs6n, digsn, streak, i, j); digs6n = digits(6^n); digsn = digits(n); for(i = 1, #digs6n + 1 - #digsn, streak = 0; for(j = 1, #digsn, if(digs6n[i + j - 1] == digsn[j], streak++ , next(2) ) ); if(streak == #digsn, return(1) ) ); 0 } \\ David A. Corneth, Aug 13 2021
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved