A273223 a(n) = p*(p - 1)*(501*p^3 - 414*p^2 + 111*p - 54)/120, where p = prime(n).

42, 504, 8796, 53298, 566412, 1341756, 5312160, 9373536, 24790458, 80346588, 112613886, 275440284, 462452448, 588037212, 920759046, 1686448764, 2893307844, 3421602972, 5484429720, 7340452434, 8440231968, 12551864598, 16086117120, 22838112000, 35181089856

Offset: 1

Author

Vincenzo Librandi, May 19 2016

Keywords

• nonn

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..10000
• F. V. Weinstein, Notes on Fibonacci partitions, arXiv:math/0307150 [math.NT], 2003-2015, page 22.

Crossrefs

Cf. A006093, A008837, A179545, A273221, A273222.

Programs

Magma

[p*(p-1)*(501*p^3-414*p^2+111*p-54)/120: p in PrimesUpTo(200)];

Mathematica

Table[p = Prime[n]; p (p - 1) (501 p^3 - 414 p^2 + 111 p - 54) / 120, {n, 40}]