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.

Showing 1-6 of 6 results.

A097408 Initial decimal digit of n^4.

Original entry on oeis.org

1, 1, 8, 2, 6, 1, 2, 4, 6, 1, 1, 2, 2, 3, 5, 6, 8, 1, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 8, 9, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 9, 9, 1, 1, 1, 1, 1, 1
Offset: 1

Views

Author

Eric W. Weisstein, Aug 16 2004

Keywords

Examples

			1, 16, 81, 256, 625, 1296, 2401, 4096, 6561, 10000, ...
		

Crossrefs

Programs

  • Maple
    a:= n-> parse(""||(n^4)[1]):
    seq(a(n), n=1..120);  # Alois P. Heinz, Jan 28 2016

A097409 Initial decimal digit of n^5.

Original entry on oeis.org

1, 3, 2, 1, 3, 7, 1, 3, 5, 1, 1, 2, 3, 5, 7, 1, 1, 1, 2, 3, 4, 5, 6, 7, 9, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5, 6, 6, 7, 9, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 8, 8, 9, 9, 1, 1, 1, 1, 1, 1
Offset: 1

Views

Author

Eric W. Weisstein, Aug 16 2004

Keywords

Examples

			1, 32, 243, 1024, 3125, 7776, 16807, 32768, 59049, 100000, ...
		

Crossrefs

Programs

  • Maple
    a:= n-> parse(""||(n^5)[1]):
    seq(a(n), n=1..120);  # Alois P. Heinz, Jan 28 2016

A097413 Initial decimal digit of n^9.

Original entry on oeis.org

1, 5, 1, 2, 1, 1, 4, 1, 3, 1, 2, 5, 1, 2, 3, 6, 1, 1, 3, 5, 7, 1, 1, 2, 3, 5, 7, 1, 1, 1, 2, 3, 4, 6, 7, 1, 1, 1, 2, 2, 3, 4, 5, 6, 7, 9, 1, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 8, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5, 6, 7, 8, 9, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 6, 7, 8, 9, 1, 1, 1, 1
Offset: 1

Views

Author

Eric W. Weisstein, Aug 16 2004

Keywords

Examples

			1, 512, 19683, 262144, 1953125, 10077696, 40353607, 134217728, 387420489, 1000000000, ...
		

Crossrefs

Programs

  • Maple
    idd:= n -> floor(n/10^ilog10(n)):
    seq(idd(n^9),n=2..100); # Robert Israel, Jan 28 2016
  • Mathematica
    Table[IntegerDigits[n^9][[1]],{n,120}] (* Harvey P. Dale, Aug 25 2023 *)

Formula

a(n) = A000030(n^9) = floor(n^9/10^A004216(n^9)). - Robert Israel, Jan 28 2016

A097411 Initial decimal digit of n^7.

Original entry on oeis.org

1, 1, 2, 1, 7, 2, 8, 2, 4, 1, 1, 3, 6, 1, 1, 2, 4, 6, 8, 1, 1, 2, 3, 4, 6, 8, 1, 1, 1, 2, 2, 3, 4, 5, 6, 7, 9, 1, 1, 1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 7, 8, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 5, 6, 6, 7, 8, 9, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 6, 6, 6, 7, 8, 8, 9, 1, 1, 1, 1
Offset: 1

Views

Author

Eric W. Weisstein, Aug 16 2004

Keywords

Examples

			1, 128, 2187, 16384, 78125, 279936, 823543, 2097152, 4782969, 10000000, ...
		

Crossrefs

Programs

  • Mathematica
    Table[First[IntegerDigits[n^7]],{n,110}] (* Harvey P. Dale, Mar 17 2019 *)

Extensions

1 prepended by Harvey P. Dale, Mar 17 2019

A097412 Initial decimal digit of n^8.

Original entry on oeis.org

0, 1, 2, 6, 6, 3, 1, 5, 1, 4, 1, 2, 4, 8, 1, 2, 4, 6, 1, 1, 2, 3, 5, 7, 1, 1, 2, 2, 3, 5, 6, 8, 1, 1, 1, 2, 2, 3, 4, 5, 6, 7, 9, 1, 1, 1, 2, 2, 2, 3, 3, 4, 5, 6, 7, 8, 9, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5, 6, 7, 8, 8, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 1, 1, 1, 1
Offset: 0

Views

Author

Eric W. Weisstein, Aug 16 2004

Keywords

Examples

			1, 256, 6561, 65536, 390625, 1679616, 5764801, 16777216, 43046721, 100000000, ...
		

Crossrefs

Extensions

a(0) and a(1) added by Neven Juric, Sep 23 2010

A097414 Initial decimal digit of n^10.

Original entry on oeis.org

1, 1, 5, 1, 9, 6, 2, 1, 3, 1, 2, 6, 1, 2, 5, 1, 2, 3, 6, 1, 1, 2, 4, 6, 9, 1, 2, 2, 4, 5, 8, 1, 1, 2, 2, 3, 4, 6, 8, 1, 1, 1, 2, 2, 3, 4, 5, 6, 7, 9, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 8, 9, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8, 9, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 6, 7, 8, 9, 1, 1, 1, 1
Offset: 1

Views

Author

Eric W. Weisstein, Aug 16 2004

Keywords

Examples

			1, 1024, 59049, 1048576, 9765625, 60466176, 282475249, 1073741824, 3486784401, 10000000000, ...
		

Crossrefs

Programs

  • Mathematica
    IntegerDigits[#][[1]]&/@(Range[120]^10) (* Harvey P. Dale, Jan 12 2024 *)

Extensions

a(1) inserted by Pontus von Brömssen, Jul 02 2021
Showing 1-6 of 6 results.