OFFSET
1,5
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Bertrand Teguia Tabuguia and Wolfram Koepf, FPS In Action: An Easy Way To Find Explicit Formulas For Interlaced Hypergeometric Sequences, arXiv:2207.01031 [cs.SC], 2022.
Index entries for linear recurrences with constant coefficients, signature (0,0,0,2,0,0,0,-1).
FORMULA
From Colin Barker, Jun 20 2013: (Start)
G.f.: -x^3*(x^6 - 4*x^2 - 1) / ( (x-1)^2*(1+x)^2*(x^2+1)^2 ).
a(2n+1) = A225126(n+1). (End)
MAPLE
A226782 := proc(n)
local x , a, m;
a := 4 ;
m := 2 ;
if n mod m = 0 or n = 1 then
0;
else
msolve(x*a=1, n) ;
op(%) ;
op(2, %) ;
end if;
end proc: # R. J. Mathar, Jun 28 2013
MATHEMATICA
Inv[a_, mod_] := Which[mod == 1, 0, GCD[a, mod] > 1, 0, True, Last@Reduce[a*x == 1, x, Modulus -> mod]]; Table[Inv[4, n], {n, 1, 122}]
(* Second program: *)
Table[If[EvenQ[n], 0, ModularInverse[4, n], 0], {n, 1, 100}] (* Jean-François Alcover, Mar 14 2023 *)
PROG
(PARI) a(n)=if(n%2, lift(Mod(1, n)/4), 0) \\ Charles R Greathouse IV, Jun 18 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
José María Grau Ribas, Jun 18 2013
STATUS
approved