|
%I #7 Mar 23 2017 21:09:20
%S 0,5,1,10,6,2,15,11,7,3,20,16,12,8,4,25,21,17,13,9,30,26,22,18,14,35,
%T 31,27,23,19,40,36,32,28,24,45,41,37,33,29,50,46,42,38,34,55,51,47,43,
%U 39,60,56,52,48,44,65,61,57,53,49,70,66,62,58,54,75,71,67,63,59,80,76,72
%N Permutation of natural numbers generated by 5-rowed array shown below.
%C 0 5 10 15 20 25 30 35 40 45 ... a(n)=5n
%C 1 6 11 16 21 26 31 36 41 46 ... a(n)=5n+1
%C 2 7 12 17 22 27 32 37 42 47 ... a(n)=5n+2
%C 3 8 13 18 23 28 33 38 43 48 ... a(n)=5n+3
%C 4 9 14 19 24 29 34 39 44 49 ... a(n)=5n+4
%D M. Cerasoli, F. Eugeni and M. Protasi, Elementi di Matematica Discreta, Bologna 1988
%D Emanuele Munarini and Norma Zagaglia Salvi, Matematica Discreta,UTET, CittaStudiEdizioni, Milano 1997
%H Harvey P. Dale, <a href="/A116547/b116547.txt">Table of n, a(n) for n = 1..1000</a>
%F Starting with term a(10): a(n+5k) = a(n) + 5k, with k>=1.
%F G.f.: x*(5-4*x+9*x^2-4*x^3-4*x^4+8*x^5-13*x^7+21*x^9-17*x^10+4*x^14)/(1-x-x^5+x^6). - _Robert Israel_, Mar 23 2017
%p 0, 5, 1, 10, 6, 2, 15, 11, 7, 3, seq(seq(t + 5*k,t=[15,11,7,3,-1]),k=1..20); # _Robert Israel_, Mar 23 2017
%t Select[Join[{0},Table[Most[NestList[#-4&,5n,5]],{n,20}]]//Flatten,#>=0&] (* _Harvey P. Dale_, Nov 26 2016 *)
%Y Cf. A115302, A116080.
%K nonn
%O 1,2
%A _Giovanni Teofilatto_, Mar 16 2006
|
