|
|
A330820
|
|
Numbers of the form (M_p^2-1)^2, where M_p is a Mersenne prime, A000668. Also the second element of the power-spectral basis of A330817.
|
|
10
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
If n=1, a(1)=(3^2-1)^2=64.
|
|
MAPLE
|
for www to 1 do
for i from 1 to 31 do
#ithprime(31)=127
p:=ithprime(i);
q:=2^p-1;
od;
od;
|
|
MATHEMATICA
|
Array[((2^MersennePrimeExponent[#] - 1)^2 - 1)^2 &, 10] (* Amiram Eldar, Jan 07 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|