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
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, May 18 2016
STATUS
approved