A163285 - OEIS

%I #13 Dec 17 2016 14:05:24

%S 0,1,1,32,48,64,243,405,567,729,1024,1792,2560,3328,4096,3125,5625,

%T 8125,10625,13125,15625,7776,14256,20736,27216,33696,40176,46656,

%U 16807,31213,45619,60025,74431,88837,103243,117649,32768,61440,90112,118784,147456

%N Triangle read by rows in which row n lists n+1 terms, starting with n^5 and ending with n^6, such that the difference between successive terms is equal to n^5 - n^4.

%C The first term of row n is A000584(n) and the last term of row n is A001014(n).

%C The main entry for this sequence is A159797. See also A163282, A163283 and A163284.

%C Row sums give A163275. - Omar E. Pol, Mar 18 2012

%H G. C. Greubel, <a href="/A163285/b163285.txt">Table of n, a(n) for the first 50 rows, flattened</a>

%e Triangle begins:

%e 0;

%e 1,1;

%e 32,48,64;

%e 243,405,567,729;

%e 1024,1792,2560,3328,4096;

%e 3125,5625,8125,10625,13125,15625;

%e 7776,14256,20736,27216,33696,40176,46656;

%e 16807,31213,45619,60025,74431,88837,103243,117649;

%e 32768,61440,90112,118784,147456,176128,204800,233472,262144;

%e 59049,111537,164025,216513,269001,321489,373977,426465,478953,531441;

%e 100000,190000,280000,370000,460000,550000,640000,730000,820000,910000,1000000;

%t rw[n_]:=Range[n^5,n^6,n^5-n^4]; Join[{0,1},Flatten[Array[rw,10]]] (* _Harvey P. Dale_, Mar 18 2012 *)

%o (PARI) A163285(n, k)=n^5 +k*(n^5 -n^4) \\ _G. C. Greubel_, Dec 17 2016

%Y Cf. A000584, A001014, A085538, A159797, A162611, A162614, A162622, A163282, A163283, A163284.

%K easy,nonn,tabl

%O 0,4

%A _Omar E. Pol_, Jul 24 2009