%I #17 Feb 24 2020 07:44:34
%S 5,136,10959,26840,2495955,10021808981,25377192720,2681584376185,
%T 113220181313816,12360536835574179,3507176714646157575,
%U 152669979363491409744,5030798638073511770858765,222738121208382108330061096,25556388788416277561281235799,66021302497942406531221230200
%N Numbers of the form Fibonacci(p-1)/p, where p are primes ending in 1 or 9 (i.e., A045468).
%t s = Select[ Prime[ Range[35]], Mod[ #, 10] == 1 || Mod[ #, 10] == 9 &]; Fibonacci[s - 1]/s (* _Robert G. Wilson v_, Jun 15 2004 *)
%o (PARI) forprime(p=11, 10^3, if((p+3)%5<2, next); print1(fibonacci(p-1)/p, ", ")); \\ _Jinyuan Wang_, Feb 24 2020
%Y Cf. A045468, A094809, A096028.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Jun 11 2004
%E More terms from _Robert G. Wilson v_, Jun 15 2004
%E More terms from _Jinyuan Wang_, Feb 24 2020