A051455 - OEIS

%I #5 Jul 08 2015 06:36:21

%S 1,1,4,1,1,7,13,12,1,20,25,1,10,45,24,1,1,13,50,112,161,154,98,40,1,

%T 63,162,273,315,252,138,1,16,225,435,588,567,390,60,1,660,1023,1155,

%U 957,1,19,111,396,1683,2178,2112,825,319,84,1,130,507,3861,4290,1144,403,1

%N (Terms in A029623)/2.

%e 1;

%e 1;

%e 4,1;

%e 1;

%e 7,13,12,1;

%e 20,25,1;

%e 10,45,24,1;

%e 1;

%e 13,50,112,161,154,98,40,1;

%e 63,162,273,315,252,138,1;

%e 16,225,435,588,567,390,60,1;

%e 660,1023,1155,957,1;

%p for n from 0 to 12 do

%p     for k from 0 to n do

%p         a := A029618(n,k) ;

%p         if type(a,'even') then

%p             printf("%d,",a/2) ;

%p         end if;

%p     end do:

%p     printf("\n") ;

%p end do: # _R. J. Mathar_, Jul 08 2015

%Y A029623, A029618.

%K nonn,easy,tabf

%O 0,3

%A _James A. Sellers_