%I #14 Jun 29 2023 12:28:23
%S 1,2,3,4,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
%T 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
%U 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
%N a(n)=n, n <=6; a(n)=6, n > 6.
%C Sequence of electron arrangements in the 2p, 3p, 4p and 5p atomic subshells.
%D A. Beiser, Concepts of Modern Physics, 2nd Ed., McGraw-Hill, 1973.
%D R. M. Tennent (Editor), Science Data Book, Oliver & Boyd, 1971.
%H <a href="/index/Rec#order_01">Index entries for linear recurrences with constant coefficients</a>, signature (1).
%F a(n)=n, n <=6; a(n)=6, n > 6.
%F Euler transform of length 6 sequence [ 2, 0, 0, 0, 0, -1]. - _Michael Somos_, Aug 31 2006
%F G.f.: (1-x^6)/(1-x)^2. - _Michael Somos_, Aug 31 2006
%F a(n) = min(n,6). - _Wesley Ivan Hurt_, Apr 16 2014
%e a(6)=6.
%t Table[Min[n,6],{n,120}] (* _Harvey P. Dale_, Mar 09 2014 *)
%o (PARI) a(n)=min(6,n) /* _Michael Somos_, Aug 31 2006, edited by _M. F. Hasler_, Apr 16 2014 */
%Y Cf. A040000.
%K easy,nonn
%O 1,2
%A _Jeremy Gardiner_, Dec 19 2004
|