A134420 Composite squarefree numbers of the form k^2 + 1.
10, 26, 65, 82, 122, 145, 170, 226, 290, 362, 442, 485, 530, 626, 730, 785, 842, 901, 962, 1090, 1157, 1226, 1370, 1522, 1765, 1937, 2026, 2117, 2210, 2305, 2402, 2501, 2602, 2705, 2810, 3026, 3365, 3482, 3601, 3722, 3845, 3970, 4097, 4226, 4490, 4762
Offset: 1
Keywords
Examples
a(1)=10 because 10 = 3^2 + 1 is squarefree. a(2)=26 because 26 = 5^2 + 1 is squarefree. a(3)=65 because 65 = 8^2 + 1 is squarefree.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Maple
ts_fn3:=proc(n) local i,tren,ans; ans:=[ ]: for i from 1 to n do tren := i^(2)+1: if (isprime(tren) = false and numtheory[mobius] (tren) <> 0 ) then ans:=[ op(ans), tren ]: fi od: RETURN(ans) end: ts_fn3(200);
-
Mathematica
Select[Range[70]^2+1, CompositeQ[#] && SquareFreeQ[#] &] (* Amiram Eldar, Feb 22 2021 *)
Formula
Extensions
Definition corrected by T. D. Noe, Sep 16 2008
Comments