login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A168464 a(n) = A085738(n) - A085737(n). 0
0, 1, 1, 5, 2, 5, 1, 5, 5, 1, 31, 29, 13, 29, 31, 1, 31, 14, 14, 31, 1, 41, 43, 106, 97, 106, 43, 41, 1, 41, 22, 101, 101, 22, 41, 1, 31, 29, 106, 109, 97, 109, 106, 29, 31, 1, 31, 14, 113, 101, 101, 113, 14, 31, 1, 61, 71, 158, 161, 1271, 199, 1271, 161, 158, 71, 61, 1, 61, 38 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

The corresponding sum is in A168140.

The sequence contains negative numbers starting in row T(15,.) of the triangle.

LINKS

Table of n, a(n) for n=0..68.

EXAMPLE

As a triangle, sequence begins:

   0;

   1,  1;

   5,  2,  5;

   1,  5,  5,  1;

  31, 29, 13, 29, 31;

   1, 31, 14, 14, 31, 1;

  ...

MAPLE

T := proc(n, k) option remember; if k = 0 then (-1)^n*bernoulli(n) ; elif k > n/2 then procname(n, n-k) ; else procname(n-1, k-1)-procname(n, k-1) ; end if; end proc:

A085737 := proc(n, k) numer(T(n, k)) ; end proc:

A085738 := proc(n, k) denom(T(n, k)) ; end proc:

for n from 0 to 15 do for k from 0 to n do printf("%d, ", A085738(n, k)-A085737(n, k)) ; end do: end do: # R. J. Mathar, Mar 21 2010

PROG

(PARI) t(n, k) = if (k==0, (-1)^n*bernfrac(n), t(n-1, k-1) - t(n, k-1));

T(n, k) = my(tnk=t(n, k)); denominator(tnk) - numerator(tnk);

tabl(nn) = for (n=0, nn, for (k= 0, n, print1(T(n, k), ", ")); print); \\ Michel Marcus, Feb 01 2019

CROSSREFS

Cf. A085737, A085738, A168140.

Sequence in context: A324860 A008566 A111129 * A059688 A072996 A244892

Adjacent sequences:  A168461 A168462 A168463 * A168465 A168466 A168467

KEYWORD

sign,tabl

AUTHOR

Paul Curtz, Nov 26 2009

EXTENSIONS

Offset set to zero, sequence extended by R. J. Mathar, Mar 21 2010

Keywords sign and tabl from Michel Marcus, Feb 01 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 7 08:08 EDT 2020. Contains 336274 sequences. (Running on oeis4.)