|
%I
%S 5,19,101,181,449,2029,2549,8821,13249,16901,21169,23549,34849,38149,
%T 41651,45361,62401,77659,89101,108289,115249,122501,130051,163351,
%U 191749,433201,505601,564899,697049,720901,795709,875521,960499,990001
%N Primes of the form k^3-k^2+1, k>0.
%H Ivan Neretin, <a href="/A162292/b162292.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n)= A111501(n)^3-A111501(n)^2+1 .
%e a(1)=2^3-2^2+1=5. a(2)=3^3-3^2+1=19. a(3)=5^3-5^2+1=101.
%t lst={};Do[s=n^3-n^2;If[PrimeQ[s+1],AppendTo[lst,s+1]],{n,4*5!}];lst
%Y Cf. A087908, A162291, A111501 (corresponding k).
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 30 2009
%E Edited by _R. J. Mathar_, Jul 02 2009
|
