|
%I #46 Sep 08 2022 08:44:56
%S 30,105,385,1001,2431,4199,7429,12673,20677,33263,47027,65231,82861,
%T 107113,146969,190747,241133,290177,347261,409457,478661,583573,
%U 716539,871933,1009091,1113121,1201289,1317919,1564259,1879981,2279269,2494633,2837407,3127361,3532343
%N Product of 3 successive primes.
%H Vincenzo Librandi and K. D. Bajpai, <a href="/A046301/b046301.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Vincenzo Librandi)
%F Sum_{n>=1} 1/a(n) = A242187. - _Amiram Eldar_, Nov 19 2020
%e From _K. D. Bajpai_, Aug 27 2014: (Start)
%e a(2) = 105 is in the sequence because 105 = 3* 5 * 7, product of three successive primes.
%e a(3) = 385 is in the sequence because 385 = 5 * 7 * 11, product of three successive primes.
%e (End)
%p A046301:=n->ithprime(n)*ithprime(n+1)*ithprime(n+2): seq(A028560(n), n=1..100); # _K. D. Bajpai_, Aug 27 2014
%t Table[Prime[n] Prime[n+1] Prime[n+2],{n,50}] (* _K. D. Bajpai_, Aug 27 2014 *)
%t Times@@@Partition[Prime[Range[40]],3,1] (* _Harvey P. Dale_, Mar 25 2019 *)
%o (Magma) [NthPrime(n)*NthPrime(n+1)*NthPrime(n+2): n in [1..31]]; /* Or: */ [&*[ NthPrime(n+k): k in [0..2] ]: n in [1..31] ]; // _Bruno Berselli_, Feb 25 2011
%o (PARI) a(n)=prime(n)*prime(n+1)*prime(n+2); \\ _Joerg Arndt_, Aug 30 2014
%o (Haskell)
%o a046301 n = a046301_list !! (n-1)
%o a046301_list = zipWith3 (((*) .) . (*))
%o a000040_list (tail a000040_list) (drop 2 a000040_list)
%o -- _Reinhard Zumkeller_, May 12 2015
%Y Cf. A002110, A006094, A046302, A046303, A046324, A046325, A046326, A046327.
%Y Cf. A000040, A242187, A257891.
%K nonn,easy
%O 1,1
%A _Patrick De Geest_, Jun 15 1998
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Jan 16 2012
|
