OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Domino Tiling
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1).
FORMULA
MATHEMATICA
(* First program *)
a[n_]:= Mod[If[EvenQ[n], n + 1, (-1)^((n-1)/2)*n], 32];
Table[a[n], {n, 0, 100}]
(* Second program *)
A143234[n_]:= Mod[(-1)^(Floor[Mod[n, 4]/3])*(2*Floor[n/2]+1), 32];
Table[A143234[n], {n, 0, 100}] (* G. C. Greubel, Sep 12 2024 *)
PROG
(Magma)
A143234:= func< n | (-1)^(0^((n+1) mod 4))*(2*Floor(n/2) + 1) mod 32 >;
[A143234(n): n in [0..100]]; // G. C. Greubel, Sep 11 2024
(SageMath)
def A143234(n): return ((-1)^(0^((n+1)%4))*(2*int(n//2)+1))%32
[A143234(n) for n in range(101)] # G. C. Greubel, Sep 11 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Eric W. Weisstein, Jul 31 2008
EXTENSIONS
Offset changed by Editor(s) of Oeis.
STATUS
approved