|
%I #11 Mar 20 2018 04:10:15
%S 1,3,5,27,11,15,17,243,125,33,31,135,41,51,55,7625597484987,59,375,67,
%T 297,85,93,83,1215,1331,123,3125,459,109,165,127,177147,155,177,187,
%U 3375,157,201,205,2673,179,255,191,837,1375,249,211,38127987424935,4913,3993
%N Multiplicative with a(p^e) = prime(p) ^ a(e) (where prime(k) denotes the k-th prime number).
%C This sequence is a recursive version of A064988.
%C This sequence is injective (all terms are distinct).
%H Rémy Sigrist, <a href="/A301315/b301315.txt">Table of n, a(n) for n = 1..10000</a>
%F A225395(a(n)) = n.
%F A279690(a(n)) = A279690(n).
%t Fold[Function[{a, n}, Append[a, Times @@ Map[Prime[#1]^a[[#2]] & @@ # &, FactorInteger@ n]]], {1}, Range[2, 50]] (* _Michael De Vlieger_, Mar 19 2018 *)
%o (PARI) a(n) = my (f=factor(n)); prod (i=1, #f~, prime(f[i,1])^a(f[i,2]))
%Y Cf. A064988, A225395, A279690.
%K nonn,mult
%O 1,2
%A _Rémy Sigrist_, Mar 18 2018
|
