%I #14 May 26 2024 15:04:07
%S 1,3,4,9,10,13,19,21,25,28,70,81,97,106,291,369,460,577,4705,5427,
%T 7153,7191,7885,12070,20794,34855
%N Numbers k such that (38*10^k + 547)/9 is prime.
%C For k > 1, numbers k such that the digit 4 followed by k-2 occurrences of the digit 2 followed by the digits 83 is prime (see Example section).
%C a(27) > 10^5.
%H Makoto Kamada, <a href="https://stdkmd.net/nrr">Factorization of near-repdigit-related numbers</a>.
%H Makoto Kamada, <a href="https://stdkmd.net/nrr/prime/prime_difficulty.txt">Search for 42w83</a>.
%e 3 is in this sequence because (38*10^3 + 547)/9 = 4283 is prime.
%e Initial terms and associated primes:
%e a(1) = 1, 103;
%e a(2) = 3, 4283;
%e a(3) = 4, 42283;
%e a(4) = 9, 4222222283;
%e a(5) = 10, 42222222283, etc.
%t Select[Range[0, 100000], PrimeQ[(38*10^# + 547)/9] &]
%o (PARI) isok(n) = isprime((38*10^n + 547)/9); \\ _Michel Marcus_, Aug 01 2016
%Y Cf. A056654, A268448, A269303, A270339, A270613, A270831, A270890, A270929, A271269.
%K nonn,more
%O 1,2
%A _Robert Price_, Aug 01 2016