A282940 Largest non-infinitary divisor of A162643(n) having no non-infinitary divisors.
2, 3, 6, 8, 6, 10, 5, 14, 8, 6, 22, 15, 24, 7, 10, 26, 30, 21, 8, 34, 24, 15, 38, 40, 27, 42, 30, 46, 24, 14, 33, 10, 54, 56, 58, 39, 11, 62, 42, 66, 70, 24, 21, 74, 30, 51, 78, 40, 54, 82, 13, 57, 86, 35, 88, 30, 94, 24, 14, 66, 40, 102, 69, 104, 106, 110, 56
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
f[p_, e_] := p^(2^Floor[Log2[e + 1]] - 1); s[1] = Nothing; s[n_] := Module[{v = Times @@ f @@@ FactorInteger[n]}, If[v == n, Nothing, v]]; Array[s, 300] (* Amiram Eldar, Apr 29 2024 *)
Formula
Extensions
More terms from Peter J. C. Moses, Feb 25 2017
Comments