|
%I #21 Sep 08 2022 08:45:03
%S 30,1001,7429,33263,82861,190747,347261,583573,1009091,1317919,
%T 2279269,3127361,4273697,5605027,7262011,9363547,12112039,14457349,
%U 18181979,21093827,25456133,30857731,38706809,44227723,51881689,59147839
%N Product of primes prime(3*n+1), prime(3*n+2), prime(3*n+3).
%H Harry J. Smith, <a href="/A061466/b061466.txt">Table of n, a(n) for n = 0..1000</a>
%e 2*3*5 = 30; 7*11*13 = 1001; ...
%t f[n_] := Prime[3n + 1] Prime[3n + 2] Prime[3n + 3]; Array[f, 26, 0] (* _Robert G. Wilson v_, Apr 11 2011 *)
%o (PARI) { for (n=0, 1000, i=3*n + 1; p=prime(i)*prime(i + 1)*prime(i + 2); write("b061466.txt", n, " ", p) ) } \\ _Harry J. Smith_, Jul 23 2009
%o (Magma) [&*[NthPrime(n+k): k in [0..2]]: n in [1..78 by 3]]; // _Bruno Berselli_, Apr 11 2011
%o (Sage) [product(nth_prime(k) for k in (3*n+1..3*n+3)) for n in (0..30)] # _G. C. Greubel_, Jan 07 2019
%K nonn
%O 0,1
%A _Jason Earls_, Jun 11 2001
%E Better description and more terms from Larry Reeves (larryr(AT)acm.org), Jun 22 2001
%E Offset changed from 2 to 0 by _Harry J. Smith_, Jul 23 2009
|
