A128446 Quotients A122000(p-1) / (2^p - 1), where p = prime(n) for n > 1.
1, 882850585445281, 28084773172609134470952326813135521948919663474715912134590894817085103016117634792155856629828598766188378241
Offset: 2
Links
- Eric Weisstein's World of Mathematics, Sierpinski Number of the First Kind.
Programs
-
Mathematica
a[n_] := Module[{p = Prime[n]}, ((2^(p-1) - 1)^(2^(p-1) - 1) + 1)/(2^(p-1)*(2^p-1))]; Array[a, 3, 2] (* Amiram Eldar, Jul 17 2025 *)
Formula
a(n) = ((2^(prime(n)-1) - 1)^(2^(prime(n)-1)-1) + 1)/(2^(prime(n)-1)*(2^prime(n)-1)).
Comments