OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
112 is a term because 112 = 2^4*7 with 5 primes dividing it and 7-2=5.
MATHEMATICA
seqQ[1] = True; seqQ[n_] := Plus @@ Last /@ (f = FactorInteger[n]) == f[[-1, 1]] - f[[1, 1]]; Select[Range[10^4], seqQ] (* Amiram Eldar, Dec 16 2019 *)
PROG
(Magma) f:=func<n|&+[p[2]: p in Factorization(n)]>; [1] cat [k:k in [2..10000]| Max(PrimeDivisors(k))-Min(PrimeDivisors(k)) eq f(k)]; // Marius A. Burtea, Dec 16 2019
(PARI) print1("1, "); for(k=2, 10500, my(f=factor(k)); if(bigomega(k)==vecmax(f[, 1])-f[1, 1], print1(k, ", "))) \\ Hugo Pfoertner, Dec 16 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 02 2003
EXTENSIONS
Name edited by Hugo Pfoertner, Dec 16 2019
STATUS
approved