[go: up one dir, main page]

login
A145644
Cubefree part of 10^n.
0
1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100, 1, 10, 100
OFFSET
0,2
COMMENTS
Period 3: repeat [1, 10, 100].
FORMULA
a(n) = 10^(n mod 3) = A050985(A011557(n)) = A011557(A010872(n)). - Amiram Eldar, Feb 14 2021
From Wesley Ivan Hurt, Apr 18 2021: (Start)
G.f.: (1+10*x+100*x^2)/(1-x^3).
a(n) = a(n-3). (End)
MATHEMATICA
CubefreePart[n_Integer?Positive] := Times @@ Power @@@ ({#[[1]], Mod[ #[[2]], 3]} & /@ FactorInteger[n]); Table[CubefreePart[10^n], {n, 1, 40}]
PadRight[{}, 50, {1, 10, 100}] (* Wesley Ivan Hurt, Apr 18 2021 *)
PROG
(Magma) &cat [[1, 10, 100]^^30]; // Wesley Ivan Hurt, Apr 18 2021
KEYWORD
nonn,easy,less
AUTHOR
Artur Jasinski, Oct 15 2008
EXTENSIONS
Offset corrected by Amiram Eldar, Feb 14 2021
STATUS
approved