The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A054991 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
newer changes | Showing entries 11-20 | older changes

A054991

Number of prime divisors of n! - 1 (counted with multiplicity).
(history; published version)

#13 by Russ Cox at Fri Mar 30 17:30:20 EDT 2012

EXTENSIONS

More terms from _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Mar 24 2001

Discussion

Fri Mar 30

17:30

OEIS Server: https://oeis.org/edit/global/156

#12 by T. D. Noe at Sat Jul 23 02:18:16 EDT 2011

STATUS

editing

approved

#11 by T. D. Noe at Sat Jul 23 02:18:10 EDT 2011

MATHEMATICA

A054991[n_Integer] := PrimeOmega[n! - 1]; A054991[1] = 0; Table[A054991 /@ Range[1, n], {n, 2, 100}] (* From Vladimir Joseph Stephan Orlovsky, Jul 22 2011 *)

STATUS

proposed

editing

#10 by Vladimir Joseph Stephan Orlovsky at Fri Jul 22 21:04:02 EDT 2011

STATUS

editing

proposed

#9 by Vladimir Joseph Stephan Orlovsky at Fri Jul 22 21:03:58 EDT 2011

MATHEMATICA

A054991[n_Integer] := PrimeOmega[n! - 1]; A054991[1] = 0; A054991 /@ Range[1, 100] (* From Vladimir Joseph Stephan Orlovsky, Jul 22 2011 *)

STATUS

approved

editing

#8 by N. J. A. Sloane at Thu Nov 11 07:34:06 EST 2010

LINKS

R. G. Wilson v, <a href="a38507/A038507/a038507.txt">Explicit factorizations</a>

KEYWORD

nonn,new

nonn

#7 by N. J. A. Sloane at Fri Feb 27 03:00:00 EST 2009

LINKS

R. G. Wilson v, <a href="http://www.research.att.com/~njas/sequences/a38507.txt">Explicit factorizations</a>

KEYWORD

nonn,new

nonn

#6 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006

MATHEMATICA

a[q_] := Module[{x, n}, x=FactorInteger[q!-1]; n=Length[x]; Sum[Table[x[[i]][[2]], {i, n}][[j]], {j, n}]]

KEYWORD

nonn,new

nonn

#5 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004

MATHEMATICA

a[q_] := Module[{x, n}, x=FactorInteger[q!-1]; n=Length[x]; Sum[Table[x[[i]][[2]], {i, n}][[j]], {j, n}]]

KEYWORD

nonn,new

nonn

#4 by N. J. A. Sloane at Thu Feb 19 03:00:00 EST 2004

MATHEMATICA

a[q_]:=Module[{x, n}, x=FactorInteger[q!-1]; n=Length[x]; Sum[Table[x[[i]][[2]], {i, n}][[j]], {j, n}]]

KEYWORD

nonn,new

nonn