cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A182254 a(n) = primorial(n) mod n!.

This page as a plain text file.
%I A182254 #21 May 27 2025 01:06:43
%S A182254 0,0,0,0,18,30,510,1470,22890,284550,3171630,18486930,45347610,
%T A182254 4254260010,2349577230,371965003410,9252750236730,190224835871070,
%U A182254 221717289063270,14855058367239090,1662934646118135390,45974266913148043470,4510191947325194130
%N A182254 a(n) = primorial(n) mod n!.
%C A182254 a(n) mod 6 = 0 and a(n) mod 30 = 0, n<>4. - _Gary Detlefs_, May 02 2012
%H A182254 Harvey P. Dale, <a href="/A182254/b182254.txt">Table of n, a(n) for n = 0..449</a>
%F A182254 a(n) = A002110(n) mod A000142(n).
%e A182254 a(5) = (2*3*5*7*11) mod (1*2*3*4*5) = 2310 mod 120 = 30.
%t A182254 primorial[n_] := Product[Prime[i], {i, n}]; Table[Mod[primorial[n], n!], {n, 0, 30}] (* _T. D. Noe_, Apr 21 2012 *)
%t A182254 With[{nn=30},Join[{0},Mod[#[[2]],#[[1]]]&/@Transpose[{Range[nn]!, FoldList[ Times, Prime[Range[nn]]]}]]] (* _Harvey P. Dale_, May 26 2016 *)
%Y A182254 Cf. A002110, A000142, A000040, A135568.
%K A182254 nonn
%O A182254 0,5
%A A182254 _Alex Ratushnyak_, Apr 21 2012