cp's OEIS Frontend

A245482 Semiprimes of the form m^6 - m^5 + m^4 - m^3 + m^2 - m + 1.

%I A245482 #13 Aug 09 2014 23:04:07
%S A245482 3277,13021,102943,233017,478297,2756293,44693587,465273397,705483871,
%T A245482 859769191,2117950381,3996097561,8123248981,10554648343,11980986577,
%U A245482 15318627451,21753909997,30299909641,33705129193,37423460467,41477524747,45891147541,97434620557,106376475037
%N A245482 Semiprimes of the form m^6 - m^5 + m^4 - m^3 + m^2 - m + 1.
%C A245482 All the terms in this sequence are odd semiprimes.
%C A245482 Primes of this form are at A245427.
%H A245482 K. D. Bajpai, <a href="/A245482/b245482.txt">Table of n, a(n) for n = 1..11040</a>
%e A245482 m = 4: m^6 - m^5 + m^4 - m^3 + m^2 - m + 1 = 3277 = 29 * 113, which is semiprime and appears in the sequence.
%e A245482 m = 5: m^6 - m^5 + m^4 - m^3 + m^2 - m + 1 = 13021 = 29 * 449, which is semiprime and appears in the sequence.
%t A245482 A245482 = {}; k = n^6 - n^5 + n^4 - n^3 + n^2 - n + 1; Do[If[PrimeOmega[k] == 2, AppendTo[A245482, k]], {n, 100}]; A245482
%o A245482 (PARI) for(n=1,100,s=sum(i=0,6,(-n)^i);if(bigomega(s)==2,print1(s,", "))) \\ _Derek Orr_, Jul 28 2014
%Y A245482 Cf. A001358, A162861, A245393, A245427.
%K A245482 nonn
%O A245482 1,1
%A A245482 _K. D. Bajpai_, Jul 23 2014