%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