This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A176767 #14 Apr 03 2024 17:14:21 %S A176767 2401,1,2401,343,49,823543,16807,7,16807,49,96889010407,117649, %T A176767 13841287201,13841287201,11398895185373143,4747561509943,16807,117649, %U A176767 11398895185373143,1977326743,13841287201,3909821048582988049 %N A176767 Smallest power of 7 whose decimal expansion contains n. %C A176767 This is to 7 as A176763 is to 3 and as A030001 is to 2. %H A176767 Paolo Xausa, <a href="/A176767/b176767.txt">Table of n, a(n) for n = 0..10000</a> %F A176767 a(n) = MIN{A000420(i) such that n in decimal representation is a substring of A000420(i)}. %F A176767 a(n) = 7^A062524(n). - _Michel Marcus_, Sep 30 2014 %e A176767 a(1) = 1 because 7^0 = 1 has "1" as a substring (not a proper substring, though). %e A176767 a(2) = 2401 because 7^4 = 2401 has "2" as a substring. %e A176767 a(3) = 343 because 7^3 = 343 has "3" as a substring. %t A176767 A176767[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[7^++k], IntegerString[n]]]; 7^k]; Array[A176767, 50, 0] (* _Paolo Xausa_, Apr 03 2024 *) %Y A176767 Cf. A000420, A030001, A176763, A176764-A176773. %K A176767 base,easy,nonn %O A176767 0,1 %A A176767 _Jonathan Vos Post_, Apr 25 2010 %E A176767 More terms from _Sean A. Irvine_ and _Jon E. Schoenfield_, May 05 2010 %E A176767 Extended to a(0) by _M. F. Hasler_, Oct 03 2014