%I #12 Mar 27 2020 09:02:19
%S 561330,1082115,1164735,5128905,5154945,6157350,7015155,7072770,
%T 9549960,11551830,12088065,14421825,18544365,19099920,21194760,
%U 24580050,25392720,26277285,31400085,34359030,42932385,44087025,47915595
%N Numbers k for which 2*k-1, 4*k-1, 8*k-1, 16*k-1, 32*k-1, 64*k-1 and 128*k-1 are primes.
%H Amiram Eldar, <a href="/A124514/b124514.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[15*Range[3200000], And @@ PrimeQ /@ ({2, 4, 8, 16, 32, 64, 128}*# - 1) &] (* _Ray Chandler_, Nov 22 2006 *)
%t apQ[n_]:=AllTrue[NestList[2#&,2n,6]-1,PrimeQ]; Select[15*Range[ 32*10^5], apQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 08 2019 *)
%Y Cf. A006254, A124485, A124493, A124494, A124017, A125113, A124515, A124516.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 04 2006