%I #24 May 26 2024 14:40:53
%S 1,2,3,6,8,12,18,19,30,65,77,126,353,541,576,723,777,1024,1194,1507,
%T 2379,2615,4008,4295,4495,4526,9996,10348,10673,14120,22350,70240,
%U 93116,122070,136225,183710,224232,234025,270799
%N Numbers k such that 23*10^k - 7 is prime.
%C Numbers k such that the digits 22 followed by k-1 occurrences of the digit 9 followed by the digit 3 is prime (see Example section).
%C a(40) > 3*10^5.
%H Makoto Kamada, <a href="https://stdkmd.net/nrr/prime/prime_difficulty.txt">Search for 229w3</a>.
%e 3 is in this sequence because 23*10^3-7 = 22993 is prime.
%e Initial terms and associated primes:
%e a(1) = 1, 223;
%e a(2) = 2, 2293;
%e a(3) = 3, 22993;
%e a(4) = 6, 22999993;
%e a(5) = 8, 2299999993, etc.
%t Select[Range[0, 100000], PrimeQ[23*10^# - 7] &] (* Corrected by _Georg Fischer_, Jul 22 2019 *)
%o (PARI) lista(nn) = {for(n=1, nn, if(ispseudoprime(23*10^n - 7), print1(n, ", "))); } \\ _Altug Alkan_, Mar 22 2016
%Y Cf. A056654, A268448, A269303, A270339, A270613.
%K nonn,more
%O 1,2
%A _Robert Price_, Mar 22 2016
%E a(34)-a(36) from _Robert Price_, Feb 25 2020
%E a(37)-a(39) from _Robert Price_, May 31 2023
|