A353917 a(1) = 4. Let j = a(n-1) and let m = omega(gcd(j, k)) with gcd(j, k) > 1. For n > 1, a(n) = least k such that min(omega(j), omega(k)) = m and m < max(omega(j), omega(k)), but neither j | k nor k | j.
4, 6, 8, 10, 16, 12, 9, 15, 25, 20, 30, 18, 27, 21, 49, 14, 32, 22, 64, 24, 42, 28, 70, 40, 60, 36, 66, 44, 110, 50, 90, 48, 78, 52, 128, 26, 169, 39, 81, 33, 121, 55, 125, 35, 343, 56, 84, 54, 102, 68, 170, 80, 120, 45, 105, 63, 168, 72, 114, 76, 190, 100, 130
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
- Michael De Vlieger, Annotated log log scatterplot of a(n), n = 1..1192, showing records in red and local minima in blue.
- Michael De Vlieger, Log-log scatterplot of a(n), n = 1..2^16, showing records in red, local minima in blue, accentuating composite prime powers in green and squarefree semiprimes in gold.
- Michael De Vlieger, Prime power factor study of a(n), n = 1..10^4 where n increases from left to right, and pi(p) from bottom to top in the top image. Multiplicity e of p^e is represented by black for e = 1, red for e = 2, and a color function to the maximum multiplicity in the range thereafter. On the lower bar we show composite prime powers in yellow, squarefree semiprimes in orange, numbers in A350352 in green, and those in A126706 in blue.
- Index entries for sequences related to EKG sequence
Programs
-
Mathematica
nn = 2^7; c[_] = 0; j = a[1] = 4; c[4] = 1; u = 6; Do[Set[k, u]; Set[m, PrimeNu[j]]; While[Nand[c[k] == 0, ! Divisible[#2, #1] & @@ Sort[{j, k}], And[#2 > #3, #1 == #3] & @@ Append[Sort[{m, PrimeNu[k]}], PrimeNu[GCD[j, k]]]], k++]; Set[{a[i], c[k]}, {k, i}]; j = k; If[k == u, While[Nand[c[u] == 0, CompositeQ@ u], u++]], {i, 2, nn}]; Array[a, nn]
Comments