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,1

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.

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 *)

Prog

(Magma) [p*(p-1)*(13*p-5)/6: p in PrimesUpTo(200)];
(Ruby)
require 'prime'
p Prime.each.take(n).map{|i| i * (i - 1) * (13 * i - 5) / 6} # Seiichi Manyama, May 25 2016

Crossrefs

Cf. A006093, A008837, A179545.

Sequence in context: A027233 A117650 A365474 * A144038 A027842 A232043

Adjacent sequences: A273218 A273219 A273220 * A273222 A273223 A273224

Keyword

nonn

Author

Vincenzo Librandi, May 18 2016

Status

approved