%I #18 May 08 2024 10:08:21
%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.
%C Decimal expansion of 37037/30000. - _Elmo R. Oliveira_, May 07 2024
%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,changed
%O 1,2
%A _Jeremy Gardiner_, Dec 19 2004
|