|
%I #19 Sep 08 2022 08:45:33
%S 1,12,260,1960,29524,80444,402288,784092,2467256,9913708,14791712,
%T 42762084,79168376,105356020,179653552,369405972,703008836,858672844,
%U 1507639628,2135004648,2522237016,4051457488,5449006108,8283021384
%N a(n) = (prime(n)^6-prime(n)^2)/60.
%H Harvey P. Dale, <a href="/A138451/b138451.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A213547(prime(n)-1). - _Robert Israel_, Sep 11 2014
%p seq((ithprime(n)^6-ithprime(n)^2)/60, n=1..100); # _Robert Israel_, Sep 11 2014
%t a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/60, {n, 1, 50}]; a
%t (#^6-#^2)/60&/@Prime[Range[30]] (* _Harvey P. Dale_, Sep 11 2014 *)
%o (PARI) forprime(p=2,1e3,print1((p^6-p^2)/60", ")) \\ _Charles R Greathouse IV_, Jul 15 2011
%o (Magma) [( NthPrime(n)^6-NthPrime(n)^2 )/60: n in [1..30]]; // _Vincenzo Librandi_, Sep 11 2014
%Y Cf. A000040, A213547.
%K nonn,easy,less
%O 1,2
%A _Artur Jasinski_, Mar 19 2008
|
