|
%I #7 Sep 10 2021 10:49:53
%S 47,719,1439,2879,4079,4127,5807,6047,7247,7727,9839,10799,11279,
%T 13967,14159,15647,21599,24527,28319,28607,42767,44687,45887,48479,
%U 51599,51839,67247,68639,72767,77279,79967,81647,84047,84719,89087,92399,95279,96959,98207
%N 16k-1 such that 4k-1, 8k-1 and 16k-1 are primes.
%e 4*3-1=11, 8*3-1=23 and 16*3-1=47 are primes, so the first entry is 47.
%t 16#-1&/@Select[Range[10000],AllTrue[{4#-1,8#-1,16#-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 13 2015 *)
%Y Cf. A002515, A101790, A101791, A101792.
%K easy,nonn
%O 1,1
%A Douglas Stones (dssto1(AT)student.monash.edu.au), Dec 16 2004
|
