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.
%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