|
%I #26 Mar 26 2020 19:40:12
%S 12,36,156,540,876,1200,1380,1620,2016,2556,2856,3060,4356,4440,5076,
%T 5580,5700,6336,6636,6660,6996,7416,8220,9180,9660,9900,10836,11496,
%U 12456,12600,12720,12756,13680,14436,15240,16920,17076,18216,18300,18396,19440,21000,21576,22620,23556,24480
%N Numbers k such that k+1 is a prime, k+2 is twice a prime, and k+3 is three times a prime.
%C All terms are divisible by 12. - _Daniel Poveda Parrilla_, Dec 12 2016
%D R. K. Guy, Posting to Number Theory Mailing List, Nov 30 2016
%H Antti Karttunen and Charles R Greathouse IV, <a href="/A278583/b278583.txt">Table of n, a(n) for n = 1..10000</a> (first 563 terms from Antti Karttunen)
%t Select[Range[12,25000,12],AllTrue[{#+1,(#+2)/2,(#+3)/3},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 26 2020 *)
%o (PARI) list(lim)=my(v=List()); forprime(p=2,lim+1, if(p%6==1 && isprime(p\2+1) && isprime(p\3+1), listput(v,p-1))); Vec(v) \\ _Charles R Greathouse IV_, Dec 03 2016
%Y Equals A036570(n) - 1.
%Y Positions of terms >= 3 in A278500.
%Y Cf. A074200.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 30 2016
|
