%I#19 2014年10月9日15:53:40

%第1,1,0,3,5,29152136201610959268401056437249595516311831页，

%电话102287808162769002410021808981253771927201085424779823，

%电话：26815843761851787629513609113201813138161933742696582736

%N设p=素数（N）。如果这是整数，则a（n）=斐波那契（p+1）/p，否则a（n。

%C这与更好定义的A092330仅略有不同_约翰·布莱斯·多布森，2014年9月20日

%p A176951aux:=程序（n）

%p如果n=0，则

%p 0；

%p elif组合[fibonacci]（n+1）mod n=0那么

%p组合[fibonacci]（n+1）/n；

%p elif组合[fibonacci]（n-1）mod n=0那么

%p组合[fibonacci]（n-1）/n；

%p其他

%p 0；

%p end if；

%p端程序：

%p A176951:=进程（n）

%p A176951 aux（带质数（n））；

%p端程序：

%p序列（A176951（n），n=1..20）；#_R.J.Mathar，2011年10月29日

%t f[n_]=如果[n==0，0，如果[Mod[Fibonacci[n+1]，n]==0、Fibonaci[n+1]/n，如果[Mod[Fiponacci[n-1]，n]==0、Fiponaci[1]/n、0]]；

%t表[f[素数[n+1]]，{n，0，50}]

%o（PARI）a（n）=我的（p=素数（n），t）；t=斐波那契（p+1）；如果（t%p==0，t/p，t=fibonacci（p-1））；如果（t%p==0，t/p，0））\\-Charles R Greathouse IV_，2011年10月29日

%Y参考A092330。

%K nonn公司

%O 1,4型

%A _Roger L.Bagula，2010年4月29日