A059521 5, followed by the digits of the cubes of each term.

5, 1, 2, 5, 1, 8, 1, 2, 5, 1, 5, 1, 2, 1, 8, 1, 2, 5, 1, 1, 2, 5, 1, 8, 1, 5, 1, 2, 1, 8, 1, 2, 5, 1, 1, 8, 1, 2, 5, 1, 5, 1, 2, 1, 1, 2, 5, 1, 8, 1, 5, 1, 2, 1, 8, 1, 2, 5, 1, 1, 5, 1, 2, 1, 8, 1, 2, 5, 1, 1, 2, 5, 1, 8, 1, 1, 8, 1, 2, 5, 1, 5, 1, 2, 1, 1, 2, 5, 1, 8, 1, 5, 1, 2, 1, 8, 1, 2, 5

Offset

1,1

Comments

From Robert Israel, Dec 06 2024: (Start)

The limiting frequencies of 1, 2, 5 and 8 are 1/2, (3 - sqrt(5))/4, (3 - sqrt(5))/4 and (-2 + sqrt(5))/2 respectively. Since the last three are irrational, the sequence is not eventually periodic. (End)

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

5^3 = 125, so the sequence begins 5 1 2 5; 1^3 = 1; so next term is 1; 2^3 = 8, so next term is 8; etc.

Maple

A:= 5, 1, 2, 5:
for i from 2 to 100 do
  L:= ListTools:-Reverse(convert(A[i]^3, base, 10));
  A:= A, op(L);
od:
A; # Robert Israel, Dec 05 2024

Mathematica

Module[{a = {5}}, Do[a = Join[a, IntegerDigits[a[[i]]^3]], {i, 100}]; a] (* Paolo Xausa, Dec 07 2024 *)

Crossrefs

Sequence in context: A352375 A157823 A159703 * A195407 A011509 A361970

Adjacent sequences: A059518 A059519 A059520 * A059522 A059523 A059524

Keyword

nonn,base,easy

Author

David W. Wilson, Feb 16 2001

Status

approved