cp's OEIS Frontend

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.

Previous Showing 11-16 of 16 results.

A176766 Smallest power of 6 whose decimal expansion contains n.

Original entry on oeis.org

10077696, 1, 216, 36, 46656, 46656, 6, 7776, 2176782336, 1296, 10077696, 2821109907456, 1296, 13060694016, 6140942214464815497216, 101559956668416, 216, 60466176, 470184984576, 21936950640377856, 170581728179578208256, 216
Offset: 0

Views

Author

Jonathan Vos Post, Apr 25 2010

Keywords

Comments

This is to 6 as A176763 is to 3 and as A030001 is to 2.

Examples

			a(1) = 1 because 6^0 = 1 has "1" as a substring (not a proper substring, though).
a(2) = 216 because 6^3 = 216 has "2" as a substring.
a(3) = 36 because 6^2 = 36 has "3" as a substring.

Links

Crossrefs

Cf. A000400, A030001, A176763, A176764-A176773.

Programs

  • Mathematica
    A176766[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[6^++k], IntegerString[n]]]; 6^k]; Array[A176766, 50, 0] (* Paolo Xausa, Apr 03 2024 *)

Formula

a(n) = MIN{A000400(i) such that n in decimal representation is a substring of A000400(i)}.
a(n) = 6^A062523(n). - Michel Marcus, Sep 30 2014

Extensions

Corrected and extended by Sean A. Irvine and Jon E. Schoenfield, May 05 2010
a(0) prepended by Paolo Xausa, Apr 03 2024

A176769 Smallest power of 9 whose decimal expansion contains n.

Original entry on oeis.org

59049, 1, 729, 531441, 59049, 6561, 6561, 729, 81, 9, 31381059609, 205891132094649, 150094635296999121, 31381059609, 531441, 150094635296999121, 16677181699666569, 1350851717672992089, 2541865828329, 8862938119652501095929
Offset: 0

Views

Author

Jonathan Vos Post, Apr 25 2010

Keywords

Comments

This is to 9 as A176763 is to 3 and as A030001 is to 2.

Examples

			a(1) = 1 because 9^0 = 1 has "1" as a substring (not a proper substring, though).
a(2) = 729 because 9^3 = 729 has "2" as a substring.
a(3) = 531441 because 9^6 = 531441 has "3" as a substring.

Links

Crossrefs

Cf. A001018, A030001, A176763, A176764-A176773.

Programs

  • Mathematica
    A176769[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[9^++k], IntegerString[n]]]; 9^k]; Array[A176769, 50, 0] (* Paolo Xausa, Apr 04 2024 *)

Formula

a(n) = MIN{A001019(i) such that n in decimal representation is a substring of A001019(i)}.
a(n) = 9^A062526(n). - Michel Marcus, Sep 30 2014

Extensions

More terms from Sean A. Irvine and Jon E. Schoenfield, May 05 2010
a(0) prepended by Paolo Xausa, Apr 04 2024

A176770 Smallest power of 11 whose decimal expansion contains n.

Original entry on oeis.org

161051, 1, 121, 1331, 14641, 161051, 14641, 1771561, 19487171, 19487171, 161051, 11, 121, 1331, 14641, 1771561, 161051, 1771561, 9849732675807611094711841, 19487171, 672749994932560009201, 121, 34522712143931, 2357947691, 25937424601
Offset: 0

Views

Author

Jonathan Vos Post, Apr 25 2010

Keywords

Comments

This is to 11 as A176763 is to 3 and as A030001 is to 2.

Examples

			a(1) = 1 because 11^0 = 1 has "1" as a substring (not a proper substring, though).
a(2) = 121 because 11^2 = 121 has "2" as a substring.
a(3) = 1331 because 11^3 = 1331 has "3" as a substring.

Links

Crossrefs

Cf. A001018, A030001, A176763, A176764-A176773.

Programs

  • Mathematica
    A176770[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[11^++k], IntegerString[n]]]; 11^k]; Array[A176770, 50, 0] (* Paolo Xausa, Apr 04 2024 *)

Formula

a(n) = MIN{A001020(i) such that n in decimal representation is a substring of A001020(i)}.

Extensions

More terms from Sean A. Irvine and Jon E. Schoenfield, May 05 2010
a(0) prepended by Paolo Xausa, Apr 04 2024

A176771 Smallest power of 12 whose decimal expansion contains n.

Original entry on oeis.org

20736, 1, 12, 20736, 144, 2985984, 20736, 1728, 1728, 2985984, 8916100448256, 2218611106740436992, 12, 79496847203390844133441536, 144, 5159780352, 429981696, 1728, 35831808, 61917364224, 20736, 15407021574586368
Offset: 0

Views

Author

Jonathan Vos Post, Apr 25 2010

Keywords

Comments

This is to 12 as A176763 is to 3 and as A030001 is to 2.

Examples

			a(1) = 1 because 12^0 = 1 has "1" as a substring (not a proper substring, though).
a(2) = 12 because 12^1 = 12 has "2" as a substring.
a(3) = 20736 because 12^4 = 20736 has "3" as a substring.

Links

Crossrefs

Cf. A001018, A030001, A176763, A176764-A176773.

Programs

  • Mathematica
    A176771[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[12^++k], IntegerString[n]]]; 12^k]; Array[A176771, 50, 0] (* Paolo Xausa, Apr 04 2024 *)

Formula

a(n) = MIN{A001021(i) such that n in decimal representation is a substring of A001021(i)}.

Extensions

More terms from Sean A. Irvine and Jon E. Schoenfield, May 05 2010
a(0) prepended by Paolo Xausa, Apr 04 2024

A176772 Smallest power of 13 whose decimal expansion contains n.

Original entry on oeis.org

4826809, 1, 2197, 13, 4826809, 28561, 169, 2197, 28561, 169, 10604499373, 51185893014090757, 371293, 13, 51185893014090757, 815730721, 169, 62748517, 137858491849, 2197, 1461920290375446110677, 2197, 23298085122481
Offset: 0

Views

Author

Jonathan Vos Post, Apr 25 2010

Keywords

Comments

This is to 13 as A176763 is to 3 and as A030001 is to 2.

Examples

			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.

Links

Crossrefs

Cf. A001022, A030001, A176763, A176764-A176773.

Programs

  • Mathematica
    A176772[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[13^++k], IntegerString[n]]]; 13^k]; Array[A176772, 50, 0] (* Paolo Xausa, Apr 04 2024 *)

Formula

a(n) = MIN{A001022(i) such that n in decimal representation is a substring of A001022(i)}.

Extensions

More terms from Sean A. Irvine and Jon E. Schoenfield, May 05 2010
a(0) prepended by Paolo Xausa, Apr 04 2024

A239121 Smallest number k > 0 such that the decimal expansion of k^k contains n.

Original entry on oeis.org

9, 1, 3, 5, 2, 4, 4, 3, 7, 9, 10, 11, 5, 19, 22, 26, 8, 17, 16, 19, 9, 8, 13, 7, 17, 4, 17, 3, 11, 18, 13, 5, 23, 17, 18, 7, 17, 15, 9, 18, 16, 17, 9, 7, 12, 28, 6, 23, 9, 24, 23, 13, 18, 11, 7, 14, 4, 18, 14, 13, 19, 11, 25, 17, 17, 6, 6, 8, 14, 27, 11, 26, 8
Offset: 0

Views

Author

Michel Lagneau, Mar 10 2014

Keywords

Examples

			a(0) = 9 because 9^9 = 387420489 has "0" as a substring;
a(1) = 1 because 1^1 = 1 has "1" as a substring;
a(2) = 3 because 3^3 = 27 has "2" as a substring;
a(3) = 5 because 5^5 = 3125 has "3" as a substring;
a(4) = 2 because 2^2 = 4 has "4" as a substring.

Links

Crossrefs

Cf. A030001.

Programs

  • Mathematica
    a[n_] := (k = 1; While[ !MatchQ[ IntegerDigits[k^k], {_, Sequence @@ IntegerDigits[n], _}], k++]; k); Table[a[n], {n, 0, 80}] (*program from Jean-Francois Alcover adapted for this sequence - see A030001 *)
snk[n_]:=Module[{k=1},While[SequenceCount[IntegerDigits[k^k],IntegerDigits[ n]]<1,k++];k]; Array[snk,80,0] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 09 2019 *)
  • PARI
    overlap(long, short)=my(D=10^#digits(short)); while(long>=short, if(long%D==short, return(1)); long\=10); 0
a(n)=my(k); while(!overlap(k++^k, n), ); k \\ Charles R Greathouse IV, Mar 11 2014
Previous Showing 11-16 of 16 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.