This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A079349 #14 Aug 09 2025 17:02:50 %S A079349 14,18,28,38,40,48,54,60,74,88,98,100,108,108,114,138,138,148,150,158, %T A079349 174,180,194,198,198,210,228,234,240,258,264,268,278,280,294,308,314, %U A079349 318,330,338,348,348,354,374,388,398,400,408,420,434,448,458,460 %N A079349 p-(p/5) where Fibonacci(p-(p/5)) is not the first Fibonacci number that p divides. %H A079349 Amiram Eldar, <a href="/A079349/b079349.txt">Table of n, a(n) for n = 1..10000</a> %e A079349 A079348(1) = 13, (13/5) = -1, hence a(1) = 14. %o A079349 (PARI) quad5(x)=if (x%5>1 && x%5<4,-1,1); %o A079349 forprime (p=7,500, wss=p-quad5(p); for (n=1, wss,if (fibonacci(n)%p==0,if (n<wss,print1(wss","); break)))) %Y A079349 Cf. A079346, A079347, A079348. %K A079349 nonn %O A079349 1,1 %A A079349 _Jon Perry_, Jan 04 2003 %E A079349 Offset corrected by _Amiram Eldar_, Jun 22 2024