|
%I #6 May 01 2022 07:25:46
%S 4,6,6,24,42,42,18,198,42,54,96,84,522,240,48,228,708,732,660,132,528,
%T 390,78,1014,504,1008,1134,504,708,582,894,516,2982,810,162,1746,4758,
%U 1848,414,4512,2928,1722,4392,1104,1134,1950,390,78,1500,300,60
%N Least k such that k*5^n +/- 1 are twin primes.
%t Do[ k = 1; While[ ! PrimeQ[ k*5^n + 1 ] || ! PrimeQ[ k*5^n - 1 ], k++ ]; Print[ k ], {n, 0, 50} ]
%Y Cf. A063983.
%K nonn
%O 0,1
%A _Robert G. Wilson v_, Sep 21 2001
%E Offset corrected by _Georg Fischer_, May 01 2022
|
