login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A160636 Hankel transform of A114464. 2
1, 0, -1, -2, -8, 0, 128, 1024, 16384, 0, -4194304, -134217728, -8589934592, 0, 35184372088832, 4503599627370496, 1152921504606846976, 0, -75557863725914323419136, -38685626227668133590597632 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

Hankel transform of A114464(n+1) is A160637.

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..115

FORMULA

a(n) = 2^floor(C(n,2)/2)*((sqrt(2)-1)*sin((3*n+1)*Pi/4)/2 +(sqrt(2)+1)*cos((n+1)*Pi/4)/2).

a(4k+1) = 0, a(n) = (-1)^floor((n+2)/4) * 2^A011848(n) if n !== 1 (mod 4), where A011848(n) = floor(C(n,2)/2). - M. F. Hasler, May 09 2018

MATHEMATICA

Table[Round[2^Floor[Binomial[n, 2]/2]*((Sqrt[2]-1)*Sin[(3*n+1)*Pi/4]/2 + (Sqrt[2]+1)*Cos[(n+1)*Pi/4]/2)], {n, 0, 50}] (* G. C. Greubel, May 03 2018 *)

PROG

(MAGMA) R:= RealField(); [Round(2^Floor(Binomial(n, 2)/2)*((Sqrt(2)/2 -1/2)*Sin(3*Pi(R)*n/4+Pi(R)/4)+(Sqrt(2)/2+1/2)*Cos(Pi(R)*n/4+Pi(R)/4))): n in [0..50]]; // G. C. Greubel, May 03 2018

(PARI) for(n=0, 50, print1(round(2^floor(binomial(n, 2)/2)*((sqrt(2)-1)*sin((3*n+1)*Pi/4)/2 +(sqrt(2)+1)*cos((n+1)*Pi/4)/2)), ", ")) \\ G. C. Greubel, May 03 2018

(PARI) A160636(n)=if(n%4!=1, (-1)^((n+2)\4)<<(binomial(n, 2)\2), 0) \\ M. F. Hasler, May 09 2018

CROSSREFS

Sequence in context: A028256 A209455 A288873 * A282626 A206712 A293777

Adjacent sequences:  A160633 A160634 A160635 * A160637 A160638 A160639

KEYWORD

easy,sign

AUTHOR

Paul Barry, May 21 2009

EXTENSIONS

Comment with an incorrect formula deleted by M. F. Hasler, May 09 2018

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 21 09:18 EST 2018. Contains 317433 sequences. (Running on oeis4.)