OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 1001 terms from Harry J. Smith)
EXAMPLE
a(4)=1 since 2*3*5*7 = 210 = 19*11 + 1.
MATHEMATICA
Mod[ #[ [ 1 ] ], #[ [ 2 ] ] ]&/@ Transpose[ {FoldList[ Times, 1, Prime[ Range[ 70 ] ] ], Prime[ Range[ 71 ] ]} ]
Join[{1}, Module[{nn=70, prs}, prs=Prime[Range[nn]]; Table[Mod[Fold[Times, Take[prs, n-1]], prs[[n]]], {n, 2, nn}]]] (* Harvey P. Dale, Jun 30 2024 *)
PROG
(PARI) { n=-1; f=1; forprime (p=2, prime(1001), write("b062347.txt", n++, " ", f%p); f*=p ) } \\ Harry J. Smith, Aug 05 2009
(Python) from sympy import sieve, primorial
print([1] + [primorial(k) % sieve[k+1] for k in range(1, 71)])
# Karl-Heinz Hofmann, Jan 26 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jul 06 2001
STATUS
approved