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 A382869 #10 Apr 13 2025 16:19:53
%S A382869 1,2,3,4,7,9,11,1751,2031,45012,105772,1266256,1490601,1774525
%N A382869 Numbers k >= 1 such that A018804(k) is a Fibonacci number (A000045).
%e A382869 For k = 4: A018804(4) = 8, 8 is a Fibonacci number, thus 4 is a term.
%t A382869 fibQ[n_] := Or @@ IntegerQ /@ Sqrt[5*n^2 + {-4, 4}]; f[p_, e_] := (e*(p - 1)/p + 1)*p^e; q[n_] := fibQ[Times @@ f @@@ FactorInteger[n]]; Select[Range[120000], q] (* _Amiram Eldar_, Apr 07 2025 *)
%Y A382869 Cf. A000045, A018804.
%Y A382869 Similar sequence : A005382.
%K A382869 nonn,more
%O A382869 1,2
%A A382869 _Ctibor O. Zizka_, Apr 07 2025
%E A382869 a(10)-a(14) from _Amiram Eldar_, Apr 07 2025