A273221 a(n) = p*(p - 1)*(13*p - 5)/6, where p = prime(n).

7, 34, 200, 602, 2530, 4264, 9792, 13794, 24794, 50344, 61690, 105672, 144320, 166754, 218362, 314184, 434594, 480680, 638242, 760410, 826944, 1049594, 1218274, 1503744, 1949312, 2201800, 2335834, 2620002, 2770344, 3088064, 4389882, 4819490, 5515072

Offset: 1

Author

Vincenzo Librandi, May 18 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.

Programs

Magma

[p*(p-1)*(13*p-5)/6: p in PrimesUpTo(200)];

Mathematica

Table[p = Prime[n]; p (p - 1) (13 p - 5) / 6, {n, 40}]
#(#-1) (13#-5)/6&/@Prime[Range[40]] (* Harvey P. Dale, Aug 04 2021 *)

Ruby

require 'prime'
p Prime.each.take(n).map{|i| i * (i - 1) * (13 * i - 5) / 6} # Seiichi Manyama, May 25 2016