A374853 Obverse convolution (n)**(Prime(n)); see Comments.

3, 16, 150, 2016, 42336, 1048320, 33679800, 1203840000, 51753461760, 2778808032000, 158404546460160, 10690579965542400, 793627573939200000, 61438811607613440000, 5171227710555658752000, 488050626303556459315200, 50980860352307128320000000

Offset: 1

Author

Clark Kimberling, Aug 05 2024

Keywords

• nonn

Comments

See A374848 for the definition of obverse convolution and a guide to related sequences. Conjecture: every positive integer divides a(n) for infinitely many n.

Crossrefs

Cf. A000040, A374848.

Programs

Mathematica

s[n_] := n; t[n_] := Prime[n];
u[n_] := Product[s[k] + t[n + 1 - k], {k, 1, n}]
Table[u[n], {n, 1, 20}]