|
| |
|
|
A154731
|
|
Integers of the form k = m^3-m^2 such that k-+1 are primes.
|
|
2
|
|
|
|
4, 18, 180, 2028, 8820, 34848, 108288, 191748, 720900, 875520, 960498, 990000, 1355310, 1629108, 1713600, 1756920, 2334948, 2609028, 7376850, 8448048, 21639798, 37148148, 42023088, 48893940, 60544008, 63840000, 100328400
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
|
|
|
FORMULA
|
|
|
|
MATHEMATICA
|
lst={}; Do[k=n^3-n^2; If[PrimeQ[k-1]&&PrimeQ[k+1], AppendTo[lst, p]], {n, 7!}]; lst
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
