cp's OEIS Frontend

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

%I A273221 #25 Sep 08 2022 08:46:16
%S A273221 7,34,200,602,2530,4264,9792,13794,24794,50344,61690,105672,144320,
%T A273221 166754,218362,314184,434594,480680,638242,760410,826944,1049594,
%U A273221 1218274,1503744,1949312,2201800,2335834,2620002,2770344,3088064,4389882,4819490,5515072
%N A273221 a(n) = p*(p - 1)*(13*p - 5)/6, where p = prime(n).
%H A273221 Seiichi Manyama, <a href="/A273221/b273221.txt">Table of n, a(n) for n = 1..10000</a>
%H A273221 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 A273221 Table[p = Prime[n]; p (p - 1) (13 p - 5) / 6, {n, 40}]
%t A273221 #(#-1) (13#-5)/6&/@Prime[Range[40]] (* _Harvey P. Dale_, Aug 04 2021 *)
%o A273221 (Magma) [p*(p-1)*(13*p-5)/6: p in PrimesUpTo(200)];
%o A273221 (Ruby)
%o A273221 require 'prime'
%o A273221 p Prime.each.take(n).map{|i| i * (i - 1) * (13 * i - 5) / 6} # _Seiichi Manyama_, May 25 2016
%Y A273221 Cf. A006093, A008837, A179545.
%K A273221 nonn
%O A273221 1,1
%A A273221 _Vincenzo Librandi_, May 18 2016