The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A093897 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A093897

a(n) = A093896(n)! / n^n.
(history; published version)

#6 by Jon E. Schoenfield at Wed Aug 26 21:00:39 EDT 2015

STATUS

editing

approved

#5 by Jon E. Schoenfield at Wed Aug 26 21:00:36 EDT 2015

NAME

a(n) = A093896(n)! /( n^n).

MATHEMATICA

Table[k = 1; While[Mod[k!, n^n] > 0, k++ ]; k!/n^n, {n, 1, 10}] - _(* _Stefan Steinerberger_, Mar 11 2006 *)

STATUS

approved

editing

#4 by N. J. A. Sloane at Thu Dec 05 19:56:48 EST 2013

AUTHOR

_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Apr 23 2004

Discussion

Thu Dec 05

19:56

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

#3 by Russ Cox at Fri Mar 30 18:49:38 EDT 2012

MATHEMATICA

Table[k = 1; While[Mod[k!, n^n] > 0, k++ ]; k!/n^n, {n, 1, 10}] - _Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), _, Mar 11 2006

EXTENSIONS

More terms from _Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), _, Mar 11 2006

Discussion

Fri Mar 30

18:49

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

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

DATA

1, 6, 13440, 14175, 4963587213865915514880, 28028000, 738615790595351500616546025309298211371540807680000000000, 18172761476738086968750, 52650499032325167909847642931200000000

MATHEMATICA

Table[k = 1; While[Mod[k!, n^n] > 0, k++ ]; k!/n^n, {n, 1, 10}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 11 2006

KEYWORD

more,nonn,new

nonn

EXTENSIONS

More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Mar 11 2006

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

NAME

A093896(n)!/(n^n).

DATA

1, 6, 13440, 14175, 4963587213865915514880, 28028000

OFFSET

1,2

CROSSREFS

Cf. A093896.

KEYWORD

more,nonn

AUTHOR

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 23 2004

STATUS

approved