OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..200
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
Jorge Coveiro, Apr 11 2004
STATUS
approved