%I #403 Feb 25 2024 06:02:41
%S 2,3,4,7,8,12,19,22,36,46,51,67,79,215,359,394,451,1323,2131,3336,
%T 3371,6231,19179,39699,51456,56238,69660,75894,79798,92020,174968,
%U 176006,181015,285019,331259,360787,366770
%N Numbers k such that the concatenation of 2^k - 1 and 2^(k - 1) - 1 is prime.
%C 541456 is a term. - _Paolo Galliani_, Feb 12 2020
%e 2 is in the sequence because the concatenation of 3 and 1 is 31, which is prime.
%e 3 is in the sequence because the concatenation of 7 and 3 is 73, which is prime.
%e 5 is not in the sequence because the concatenation of 31 and 15 is 3115 = 5 * 7 * 89.
%t Select[Range[10^3], PrimeQ@ FromDigits[Join @@ IntegerDigits@ {2^# - 1, 2^(# - 1) - 1}] &] (* _Michael De Vlieger_, Oct 17 2018 *)
%o (PFGW) ABC2 (2^$a-1)*10^len(2^($a-1)-1)+2^($a-1)-1 a: from x to y
%o (PARI) isok(n) = isprime(eval(concat(Str(2^n-1), Str(2^(n-1)-1)))); \\ _Michel Marcus_, Mar 27 2018
%Y Cf. A000040, A000225, A298613 (associated primes).
%K nonn,base,more
%O 1,1
%A _Paolo Galliani_, Mar 27 2018
%E a(33) from _Paolo Galliani_, May 02 2018
%E a(34) from _Paolo Galliani_, Jun 14 2018
%E a(35) from _Paolo Galliani_, Jul 17 2018
%E a(36)-a(37) from _Paolo Galliani_, Aug 27 2018
|