A273222 - OEIS

%I #16 Sep 08 2022 08:46:16

%S 18,134,1345,5733,38280,76479,230588,363546,792649,2033451,2664915,

%T 5454873,8260270,10012464,14337303,23275109,35855716,41007555,

%U 59825238,75546485,84478374,116064351,141557994,187394306,264812328,311476425,336995709,392705408,423017991

%N a(n) = p*(p - 1)*(73*p^2 - 45*p + 14)/24, where p = prime(n).

%H Seiichi Manyama, <a href="/A273222/b273222.txt">Table of n, a(n) for n = 1..10000</a>

%H F. V. Weinstein, <a href="http://arXiv.org/abs/math.NT/0307150">Notes on Fibonacci partitions</a>, arXiv:math/0307150 [math.NT], 2003-2015, page 22.

%t Table[p = Prime[n]; p (p - 1) (73 p^2 - 45 p + 14) / 24, {n, 40}]

%t (#(#-1)(73#^2-45#+14))/24&/@Prime[Range[30]] (* _Harvey P. Dale_, Jan 17 2017 *)

%o (Magma) [p*(p-1)*(73*p^2-45*p+14)/24: p in PrimesUpTo(200)];

%Y Cf. A006093, A008837, A179545, A273221.

%K nonn

%O 1,1

%A _Vincenzo Librandi_, May 19 2016