|
|
A092612
|
|
Product of first n primes that end in 7.
|
|
1
|
|
|
7, 119, 4403, 206941, 13865047, 1344909559, 143905322813, 18275975997251, 2503808711623387, 393097967724871759, 65647360610053583753, 12932530040180555999341, 2935684319120986211850407
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1)= 7 = 7
a(2)= 7*17 = 119
a(3)= 7*17*37 = 4403
a(4)= 7*17*37*47 = 206941
|
|
MATHEMATICA
|
Rest[FoldList[Times, 1, Select[Prime[Range[50]], Mod[#, 10]==7&]]] (* Harvey P. Dale, Mar 01 2012 *)
FoldList[Times, Select[Prime[Range[50]], NumberDigit[#, 0]==7&]] (* Requires Mathematica version 12.3 or later *) (* Harvey P. Dale, May 27 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|