cp's OEIS Frontend

A141078 a(n) = abs(prime(n)*prime(n+4) - prime(n+1)*prime(n+3)).

%I A141078 #25 Jul 23 2025 17:51:41
%S A141078 1,16,6,54,6,14,24,10,130,24,134,34,140,150,84,190,24,72,48,260,50,72,
%T A141078 440,468,234,186,990,174,130,1692,714,632,520,736,270,96,96,390,584,
%U A141078 800,330,1608,1894,1472,342,2326,1904,406,24,1326,108,920,1184,1112,84,610
%N A141078 a(n) = abs(prime(n)*prime(n+4) - prime(n+1)*prime(n+3)).
%H A141078 Aaron Toponce, <a href="/A141078/b141078.txt">Table of n, a(n) for n = 1..100000</a>
%e A141078 a(4) = abs(prime(4)*prime(4+4) - prime(4+1)*prime(4+3)) = abs(7*19 - 11*17) = abs(133 - 187) = abs(-54) = 54.
%p A141078 p:=ithprime: seq(abs(p(n)*p(n+4)-p(n+1)*p(n+3)),n=1..60); # _Emeric Deutsch_, Aug 14 2008
%t A141078 a[n_]:=Abs[Prime[n]*Prime[n+4]-Prime[n+1]*Prime[n+3]];Array[a,56] (* _James C. McMahon_, Jul 23 2025 *)
%o A141078 (GAP) P:=Filtered([1..300],IsPrime);;
%o A141078 List([1..56], n->AbsInt(P[n]*P[n+4]-P[n+1]*P[n+3])); # _Muniru A Asiru_, Feb 09 2018
%Y A141078 Cf. A090076.
%K A141078 nonn,less
%O A141078 1,2
%A A141078 _Juri-Stepan Gerasimov_, Aug 05 2008
%E A141078 Corrected and extended by _Emeric Deutsch_, Aug 14 2008