A320118 a(1) = a(2) = 1; for n > 2, a(n) = A181819(n) * a(A181819(n)).

1, 1, 2, 6, 2, 24, 2, 10, 6, 24, 2, 144, 2, 24, 24, 14, 2, 144, 2, 144, 24, 24, 2, 240, 6, 24, 10, 144, 2, 80, 2, 22, 24, 24, 24, 54, 2, 24, 24, 240, 2, 80, 2, 144, 144, 24, 2, 336, 6, 144, 24, 144, 2, 240, 24, 240, 24, 24, 2, 1728, 2, 24, 144, 26, 24, 80, 2, 144, 24, 80, 2, 360, 2, 24, 144, 144, 24, 80, 2, 336, 14, 24, 2, 1728

Offset

1,3

Links

Antti Karttunen, Table of n, a(n) for n = 1..10080

Formula

a(1) = a(2) = 1; for n > 2, a(n) = A181819(n) * a(A181819(n)).

Mathematica

Nest[Append[#1, #2 #1[[#2]] ] & @@ {#, Times @@ Prime@ FactorInteger[Length@ # + 1][[All, -1]]} &, {1, 1}, 82] (* Michael De Vlieger, Nov 25 2018 *)

Prog

(PARI)
A181819(n) = factorback(apply(e->prime(e), (factor(n)[, 2])));
A320118(n) = if(n<=2, 1, A181819(n)*A320118(A181819(n)));

Crossrefs

Cf. A181819, A182850.

Cf. also A304465, A320016.

Sequence in context: A327171 A008556 A254638 * A320016 A096485 A125032

Adjacent sequences: A320115 A320116 A320117 * A320119 A320120 A320121

Keyword

nonn

Author

Antti Karttunen, Nov 24 2018

Status

approved