|
|
A176772
|
|
Smallest power of 13 whose decimal expansion contains n.
|
|
1
|
|
|
4826809, 1, 2197, 13, 4826809, 28561, 169, 2197, 28561, 169, 10604499373, 51185893014090757, 371293, 13, 51185893014090757, 815730721, 169, 62748517, 137858491849, 2197, 1461920290375446110677, 2197, 23298085122481
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = MIN{A001022(i) such that n in decimal representation is a substring of A001022(i)}.
|
|
EXAMPLE
|
a(1) = 1 because 13^0 = 1 has "1" as a substring (not a proper substring, though).
a(2) = 2197 because 13^3 = 2197 has "2" as a substring.
a(3) = 13 because 13^1 = 13 has "3" as a substring.
|
|
MATHEMATICA
|
A176772[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[13^++k], IntegerString[n]]]; 13^k]; Array[A176772, 50, 0] (* Paolo Xausa, Apr 04 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|