cp's OEIS Frontend

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.

A159234 Composite numbers n such that 8*n^2-2*n-1 divides the primitive part U(n) of Fibonacci(n).

This page as a plain text file.
%I A159234 #19 Apr 03 2023 10:36:11
%S A159234 27,807,1707,2977,3027,3277,4717,5137,5677,5917,5967,6187,7087,7357,
%T A159234 7597,7707,8217,9117,9297,9387,9667,9877,9927,9997,10387,11097,11647,
%U A159234 11797,12727,13407,13867,15757,15987,16327,16507,16857,17347,17767,18237,18817,18997
%N A159234 Composite numbers n such that 8*n^2-2*n-1 divides the primitive part U(n) of Fibonacci(n).
%H A159234 Chris Caldwell, The Prime Glossary, <a href="https://t5k.org/glossary/xpage/FibonacciNumber.html">Fibonacci number</a>
%t A159234 lst = {1}; Do[f = Fibonacci[a]; Do[f = f/GCD[f, lst[[d]]], {d, Most[Divisors[a]]}]; AppendTo[lst, f], {a, 2, 19000}]; Flatten[Table[If[! PrimeQ[n] && Mod[lst[[n]], 8*n^2 - 2*n - 1] == 0, n, {}], {n, 19000}]] (* _Arkadiusz Wesolowski_, Dec 12 2011 *)
%Y A159234 Subsequence of A159259.
%Y A159234 Cf. A000045, A023172, A061446, A159231, A181890.
%K A159234 nonn
%O A159234 1,1
%A A159234 _Arkadiusz Wesolowski_, Apr 06 2009