login
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
OFFSET
1,1
FORMULA
A045991 INTERSECT A014574. - R. J. Mathar, Jul 16 2022
MATHEMATICA
lst={}; Do[k=n^3-n^2; If[PrimeQ[k-1]&&PrimeQ[k+1], AppendTo[lst, p]], {n, 7!}]; lst
CROSSREFS
Sequence in context: A145075 A058924 A260970 * A201346 A174663 A356561
KEYWORD
nonn
AUTHOR
STATUS
approved