Ana Rechtman, <a href="http://images-archive.math.cnrs.fr/Mai-2021-4e-defi.html">Mai 2021, 4e défi</a>, Images des Mathématiques, CNRS, 2021 (in French).
reviewed
approved
proposed
reviewed
editing
proposed
Vaclav Kotesovec, <a href="/A019555/a019555.jpg">Graph - the asymptotic ratio (1000000 terms)</a>.
F. Florentin Smarandache, <a href="http://www.gallup.unm.edu/~smarandache/CP2.pdf">Collected Papers, Vol. II</a>, Tempus Publ. Hse, Bucharest, 1996.
f[p_, e_] := p^Ceiling[e/3]; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Jan 06 2024 *)
(PARI) a(n) = {my(f = factor(n)); prod(i = 1, #f~, f[i, 1]^ceil(f[i, 2]/3)); } \\ Amiram Eldar, Jan 06 2024
approved
editing
proposed
approved
editing
proposed
(PARI) a(n)=my(r=1); while(r^3%n!=0, r++); r \\ Anders Hellström, Sep 22 2015
(PARI) for(n=1, 100, print1(direuler(p=2, n, (1 + p*X + p*X^2)/(1 - p*X^3))[n], ", ")) \\ Vaclav Kotesovec, Aug 30 2021
(PARI) for(n=1, 100, print1(direuler(p=2, n, (1 + p*X + p*X^2)/(1 - p*X^3))[n], ", ")) \\ Vaclav Kotesovec, Aug 30 2021
approved
editing
editing
approved