

A099229


Numbers n such that n*((2^611)^2)  1 and n*((2^611)^2) + 1 are twin primes.


2



4020, 5100, 6702, 7350, 9810, 17022, 18540, 19050, 29832, 33402, 37488, 54852, 65292, 67518, 90198, 99162, 103890, 115098, 124458, 135282, 136692, 146982, 152610, 156258, 161892, 164700, 180318, 187038, 191382, 204330, 205170, 220020, 221280, 225528, 226230, 231390, 231858
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



MATHEMATICA

With[{c=(2^611)^2}, Select[Range[232000], AllTrue[c #+{1, 1}, PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 17 2021 *)


PROG

(PARI) isok(n) = my(p); ispseudoprime(p=n*((2^611)^2)  1) && ispseudoprime(p+2); \\ Michel Marcus, Sep 23 2019


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



