OFFSET
1,1
COMMENTS
Corresponding values of m: 4, 1, 7, 5, 3, 51, 59, 35, 163, 707, 419, 931, 7075, 5027, 2979, 52131, 60323, 35747, 166819, 723875, 428963.
FORMULA
a(n) = a(n-10)*2^10 for n > 11.
MATHEMATICA
Module[{nn=725000, f11}, f11={#, PrimeOmega[#]}&/@(11 Range[nn]-1); Table[SelectFirst[f11, #[[2]]==n&], {n, 21}]][[All, 1]] (* The program generates the first 21 terms of the sequence. To generate more, increase the value of the nn constant, but to generate all 35 terms listed nn will have to be increased to nearly 7-1/2 billion and the program will take a very long time to run. *) (* Harvey P. Dale, Dec 04 2021 *)
PROG
(PARI) {for(n = 1, 30, forstep(m = 10, 3276800, 11, if(bigomega(m) == n, print1(m", "); break())))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 25 2013
STATUS
approved