OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
MATHEMATICA
p[n_] := 1 + Floor[n/Sqrt[5]]
Table[p[n], {n, 1, 90}] (* A194964 *)
PROG
(Magma) [1+Floor(n/Sqrt(5)): n in [1..80] ]; // Vincenzo Librandi, Sep 10 2011
(PARI) a(n)=sqrtint(n^2\5)+1 \\ Charles R Greathouse IV, Sep 02 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 07 2011
STATUS
approved