A189047 Semiprimes which are one more than a perfect power.
9, 10, 26, 33, 65, 82, 122, 129, 145, 217, 226, 362, 485, 626, 785, 842, 901, 1157, 1226, 1522, 1765, 1937, 2026, 2049, 2117, 2305, 2402, 2501, 2602, 2705, 3365, 3482, 3601, 3722, 3845, 4097, 4226, 4762, 5042, 5777, 5833, 6085, 6242, 6401, 7226, 7397, 7745, 8193, 8465, 9026, 9217
Offset: 1
Examples
a(21) = 42^2 + 1 = 1765 = 5 * 353.
Links
- Robert G. Wilson v, Table of n, a(n) for n = 1..8086
Programs
-
Mathematica
fQ[n_] := GCD @@ Last /@ FactorInteger[n - 1] > 1 && Plus @@ Last /@ FactorInteger[n] == 2; Select[ Range@ 10000, fQ] (* Robert G. Wilson v, Apr 16 2011 *)
Comments