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.

A127992 Number of distinct prime factors of 2*n^3 - 2*n + 9.

This page as a plain text file.
%I A127992 #15 Sep 24 2021 17:17:07
%S A127992 1,2,2,2,2,3,2,2,3,3,2,3,2,2,2,3,2,2,2,2,2,3,4,2,3,3,3,3,3,3,2,4,3,2,
%T A127992 2,3,3,2,3,2,3,2,3,4,3,2,3,2,4,3,4,3,2,2,3,2,2,4,2,3,4,3,3,3,4,3,2,2,
%U A127992 2,3,3,4,3,3,4,3,3,4,4,2,2,2,3,3,3,4,3,4,2,3,2,2,3,3,3,2,4,3,2,3,4,2,3,2,4
%N A127992 Number of distinct prime factors of 2*n^3 - 2*n + 9.
%C A127992 All numbers generated by the irreducible polynomial 2n^3 - 2n + 9 (A127989) are odd multiples of 3.
%H A127992 Amiram Eldar, <a href="/A127992/b127992.txt">Table of n, a(n) for n = 1..10000</a>
%F A127992 a(n) = A001221(A127989(n)). - _Amiram Eldar_, Mar 13 2020
%t A127992 a = {}; Do[AppendTo[a, 2n^3 - 2n + 9], {n, 1, 300}]; b = {}; Do[c = FactorInteger[a[[n]]]; d = Length[c]; AppendTo[b, d], {n, 1, Length[a]}]; b
%t A127992 Table[PrimeNu[2n^3-2n+9],{n,120}] (* _Harvey P. Dale_, Sep 24 2021 *)
%o A127992 (PARI) a(n)=omega(2*n^3 - 2*n + 9) \\ _Charles R Greathouse IV_, Mar 13 2020
%Y A127992 Cf. A001221, A127989, A127990 (largest prime factor), A127992 (number of prime factors).
%K A127992 nonn
%O A127992 1,2
%A A127992 _Artur Jasinski_, Feb 10 2007