login
Primes in A153257.
8

%I #14 Mar 05 2024 07:10:47

%S 11,89,167,431,1187,1559,3119,5471,7559,18899,34781,41579,57719,67157,

%T 89009,108191,122399,154439,270269,283007,309671,628487,650759,770039,

%U 875327,960299,1213379,1547207,1800719,1845491,1984247,2608751,2724119

%N Primes in A153257.

%H Robert Israel, <a href="/A140719/b140719.txt">Table of n, a(n) for n = 1..10000</a>

%e 3^3-4^2=27-16=11, 5^3-6^2=125-36=89, 6^3-7^2=216-49=167,...

%p R:= NULL: count:= 0:

%p for n from 2 while count < 100 do

%p p:= n^3 - (n+1)^2;

%p if isprime(p) then

%p count:=count+1; R:= R,p;

%p fi

%p od:

%p R; # _Robert Israel_, Oct 19 2021

%t Select[ #^3 - (# + 1)^2 & /@ Range[2, 140], PrimeQ@ # &] (* _Robert G. Wilson v_, Aug 17 2008 *)

%Y Cf. A153257.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Jul 11 2008

%E More terms from _Robert G. Wilson v_, Aug 17 2008