|
%I #11 May 27 2021 18:59:11
%S 7,119,4403,206941,13865047,1344909559,143905322813,18275975997251,
%T 2503808711623387,393097967724871759,65647360610053583753,
%U 12932530040180555999341,2935684319120986211850407
%N Product of first n primes that end in 7.
%H Vincenzo Librandi, <a href="/A092612/b092612.txt">Table of n, a(n) for n = 1..200</a>
%e a(1)= 7 = 7
%e a(2)= 7*17 = 119
%e a(3)= 7*17*37 = 4403
%e a(4)= 7*17*37*47 = 206941
%t Rest[FoldList[Times,1,Select[Prime[Range[50]],Mod[#,10]==7&]]] (* _Harvey P. Dale_, Mar 01 2012 *)
%t FoldList[Times,Select[Prime[Range[50]],NumberDigit[#,0]==7&]] (* Requires Mathematica version 12.3 or later *) (* _Harvey P. Dale_, May 27 2021 *)
%K nonn
%O 1,1
%A _Jorge Coveiro_, Apr 11 2004
|
