Search: a070525 -id:a070525
|
|
A070526
|
|
Value of n-th cyclotomic polynomial at 2^n.
|
|
+10
3
|
|
|
1, 5, 73, 257, 1082401, 4033, 4432676798593, 4294967297, 18014398643699713, 1098438933505, 1298708349570020393652962442872833, 281474959933441, 91355004067076339167413824240109498970069278721
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
n=5: a(5)=C[5,32]=1+32+1024+32768+1048576=1082401
|
|
MATHEMATICA
|
Table[Cyclotomic[w, 2^w], {w, 1, 15}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A088856
|
|
Primes p such that cyclotomic(p,p-1) is prime.
|
|
+10
2
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Some of the larger entries may only correspond to probable primes.
For p > 2, these are numbers p such that ((p-1)^p - 1)/(p-2) is prime. - Thomas Ordowski, Sep 02 2021
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[Cyclotomic[p, p-1]], AppendTo[lst, p]], {n, 400}]; lst
|
|
PROG
|
(PARI) isok(p) = isprime(p) && isprime(polcyclo(p, p-1)); \\ Michel Marcus, Sep 02 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
Search completed in 0.006 seconds
|