OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..807
FORMULA
MATHEMATICA
Table[ Length[ Union[ Table[ Floor[w!/j], {j, 1, w!}]]], {w, 1, 11}]
a[n_] := Floor[Sqrt[4*n! + 1]] - 1; Array[a, 30] (* Amiram Eldar, Aug 18 2024 *)
PROG
(PARI) a(n)=sqrtint(4*n! + 1) - 1 \\ Charles R Greathouse IV, Mar 01 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 27 2002
EXTENSIONS
Extended by Robert G. Wilson v, Dec 02 2002
More terms from Charles R Greathouse IV, Mar 01 2018
a(25)-a(29) from Amiram Eldar, Aug 18 2024
STATUS
approved