OFFSET
1,4
COMMENTS
This differs only trivially from the better-defined A092330. - John Blythe Dobson, Sep 20 2014
MAPLE
A176951aux := proc(n)
if n = 0 then
0;
elif combinat[fibonacci](n+1) mod n = 0 then
combinat[fibonacci](n+1)/n ;
elif combinat[fibonacci](n-1) mod n = 0 then
combinat[fibonacci](n-1)/n ;
else
0 ;
end if;
end proc:
A176951 := proc(n)
A176951aux(ithprime(n)) ;
end proc:
seq(A176951(n), n=1..20) ; # R. J. Mathar, Oct 29 2011
MATHEMATICA
f[n_] = If[n == 0, 0, If[Mod[Fibonacci[n + 1], n] == 0, Fibonacci[n + 1]/n, If[Mod[Fibonacci[n - 1], n] == 0, Fibonacci[n - 1]/n, 0]]];
Table[f[Prime[n + 1]], {n, 0, 50}]
PROG
(PARI) a(n)=my(p=prime(n), t); t=fibonacci(p+1); if(t%p==0, t/p, t=fibonacci(p-1); if(t%p==0, t/p, 0)) \\ Charles R Greathouse IV, Oct 29 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Apr 29 2010
STATUS
approved