|
|
|
|
11, 89, 167, 431, 1187, 1559, 3119, 5471, 7559, 18899, 34781, 41579, 57719, 67157, 89009, 108191, 122399, 154439, 270269, 283007, 309671, 628487, 650759, 770039, 875327, 960299, 1213379, 1547207, 1800719, 1845491, 1984247, 2608751, 2724119
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
3^3-4^2=27-16=11, 5^3-6^2=125-36=89, 6^3-7^2=216-49=167,...
|
|
MAPLE
|
R:= NULL: count:= 0:
for n from 2 while count < 100 do
p:= n^3 - (n+1)^2;
if isprime(p) then
count:=count+1; R:= R, p;
fi
od:
|
|
MATHEMATICA
|
Select[ #^3 - (# + 1)^2 & /@ Range[2, 140], PrimeQ@ # &] (* Robert G. Wilson v, Aug 17 2008 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,changed
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|