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

1, 16, 6, 54, 6, 14, 24, 10, 130, 24, 134, 34, 140, 150, 84, 190, 24, 72, 48, 260, 50, 72, 440, 468, 234, 186, 990, 174, 130, 1692, 714, 632, 520, 736, 270, 96, 96, 390, 584, 800, 330, 1608, 1894, 1472, 342, 2326, 1904, 406, 24, 1326, 108, 920, 1184, 1112, 84, 610

Offset: 1

Author

Juri-Stepan Gerasimov, Aug 05 2008

Keywords

• nonn
• less

Examples

			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.
		

Links

• Aaron Toponce, Table of n, a(n) for n = 1..100000

Crossrefs

Cf. A090076.

Programs

GAP

P:=Filtered([1..300],IsPrime);;
List([1..56], n->AbsInt(P[n]*P[n+4]-P[n+1]*P[n+3])); # Muniru A Asiru, Feb 09 2018

Maple

p:=ithprime: seq(abs(p(n)*p(n+4)-p(n+1)*p(n+3)),n=1..60); # Emeric Deutsch, Aug 14 2008

Mathematica

a[n_]:=Abs[Prime[n]*Prime[n+4]-Prime[n+1]*Prime[n+3]];Array[a,56] (* James C. McMahon, Jul 23 2025 *)

Extensions

Corrected and extended by Emeric Deutsch, Aug 14 2008