A145644 Cubefree part of 10^n.
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
Links
- Index entries for linear recurrences with constant coefficients, signature (0,0,1).
Programs
-
Magma
&cat [[1, 10,100]^^30]; // Wesley Ivan Hurt, Apr 18 2021
-
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 *)
Formula
Extensions
Offset corrected by Amiram Eldar, Feb 14 2021
Comments