|
|
|
|
#17 by OEIS Server at Thu Aug 08 06:45:38 EDT 2024
|
| LINKS
|
Amiram Eldar, <a href="/A133924/b133924_1.txt">Table of n, a(n) for n = 0..10000</a>
|
|
|
|
#16 by Michel Marcus at Thu Aug 08 06:45:38 EDT 2024
|
|
|
Discussion
|
Thu Aug 08
| 06:45
| OEIS Server: Installed first b-file as b133924.txt.
|
|
|
|
#15 by Joerg Arndt at Thu Aug 08 03:10:48 EDT 2024
|
|
|
|
#14 by Amiram Eldar at Thu Aug 08 03:02:37 EDT 2024
|
|
|
|
#13 by Amiram Eldar at Thu Aug 08 02:57:23 EDT 2024
|
|
|
|
#12 by Amiram Eldar at Thu Aug 08 02:56:33 EDT 2024
|
| LINKS
|
Amiram Eldar, <a href="/A133924/b133924_1.txt">Table of n, a(n) for n = 0..10000</a>
|
| STATUS
|
approved
editing
|
|
|
|
#11 by Jon E. Schoenfield at Sun Sep 13 20:50:17 EDT 2015
|
|
|
|
#10 by Jon E. Schoenfield at Sun Sep 13 20:50:14 EDT 2015
|
| NAME
|
a(n) = number of exponents occurring only once each in the prime- factorization of n!.
|
| MAPLE
|
A133924 := proc(n) local ifs, a, i ; if n <= 1 then RETURN(0) ; else ifs := ifactors(n!)[2] ; ifs := sort([seq(op(2, i), i=ifs)]) ; a :=0 ; for i from 1 to nops(ifs) do if i = 1 or op(i, ifs) <> op(i-1, ifs) then if i=nops(ifs) or op(i, ifs) <> op(i+1, ifs) then a := a+1 ; fi ; fi ; od: RETURN(a) ; fi ; end: seq(A133924(n), n=0..120) ; - _) ; # _R. J. Mathar_, Jan 30 2008
|
| STATUS
|
approved
editing
|
|
|
|
#9 by Charles R Greathouse IV at Wed Apr 09 10:12:26 EDT 2014
|
| AUTHOR
|
_Leroy Quet_ _, Jan 07 2008
|
|
|
Discussion
|
Wed Apr 09
| 10:12
| OEIS Server: https://oeis.org/edit/global/2145
|
|
|
|
#8 by N. J. A. Sloane at Wed Feb 05 20:18:42 EST 2014
|
| AUTHOR
|
_Leroy Quet _ Jan 07 2008
|
|
|
Discussion
|
Wed Feb 05
| 20:18
| OEIS Server: https://oeis.org/edit/global/2118
|
|
|
|