cp's OEIS Frontend

A138455 a(n) = ((n-th prime)^6-(n-th prime)^4)/4.

%I A138455 #15 Dec 29 2023 10:39:05
%S A138455 12,162,3750,28812,439230,1199562,6013512,11728890,36939012,148529010,
%T A138455 221645040,640963062,1186819620,1579486062,2693583912,5539117662,
%U A138455 10542104070,12876632130,22609557762,32018718060,37826457012
%N A138455 a(n) = ((n-th prime)^6-(n-th prime)^4)/4.
%C A138455 All terms end in 0 or 2. - _Bernard Schott_, Aug 31 2020
%H A138455 Robert Israel, <a href="/A138455/b138455.txt">Table of n, a(n) for n = 1..10000</a>
%p A138455 f:= proc(n) local p;
%p A138455 p:= ithprime(n); (p^6-p^4)/4
%p A138455 end proc:
%p A138455 map(f, [$1..100]); # _Robert Israel_, Aug 31 2020
%t A138455 a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^4)/4], {n, 1, 24}]; a
%t A138455 (#^6-#^4)/4&/@Prime[Range[30]] (* _Harvey P. Dale_, Jul 21 2023 *)
%o A138455 (PARI) forprime(p=2,1e3,print1((p^6-p^4)/4", ")) \\ _Charles R Greathouse IV_, Jul 15 2011
%K A138455 nonn,easy
%O A138455 1,1
%A A138455 _Artur Jasinski_, Mar 22 2008