A141127 a(n) = prime(prime(n*n) - n*n) - n*n where prime(n) is the n-th prime.

1, 1, 34, 141, 334, 595, 1012, 1503, 2192, 2983, 3786, 4963, 6304, 7687, 9518, 11017, 13122, 15277, 17760, 20373, 23312, 26695, 29742, 33365, 37338, 41175, 45580, 50217, 54762, 59549, 65332, 71067, 76712, 82765, 88692, 95657, 102814, 110385

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 31 2008

Keywords

• nonn

Examples

			a(1) = prime(prime(1*1) - 1*1) - 1*1 = prime(prime(1) - 1) - 1 = prime(2 - 1) - 1 = prime(1) - 1 = 2 - 1 = 1.
a(5) = prime(prime(5*5) - 5*5) - 5*5 = prime(prime(25) - 25) - 25 = prime(97 - 25) - 25 = prime(72) - 25 = 359 - 25 = 334.
		

Crossrefs

Cf. A014689, A141129.

Programs

Maple

p:=ithprime: seq(p(p(n^2)-n^2)-n^2,n=1..40); # Emeric Deutsch, Aug 16 2008

Mathematica

a[n_]:=Prime[Prime[n*n]-n*n]-n*n;Array[a,38] (* James C. McMahon, Jul 17 2025 *)

Extensions

Corrected and extended by Emeric Deutsch, Aug 16 2008