A361900 Numbers k such that 3*153479820268467961^2*2^k + 1 is prime.
600, 810, 1074, 7974, 22290, 43086
Offset: 1
Programs
-
Mathematica
Select[Range[2, 10^4, 2], PrimeQ[3*153479820268467961^2*2^# + 1] &]
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Select[Range[2, 10^4, 2], PrimeQ[3*153479820268467961^2*2^# + 1] &]
Comments