login
A273221
a(n) = p*(p - 1)*(13*p - 5)/6, where p = prime(n).
4
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
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
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, May 18 2016
STATUS
approved