OFFSET
1,1
PROG
(PARI) sopf(n) = local(fac, i); fac=factor(n); sum(i=1, matsize(fac)[1], fac[i, 1])
A065927(m)= {local(a, n, k); a=0; for(k=1, m, n=1; while(sopf(n)!=sopf(n+k), n++); if(n>a, a=n; print1(n, ", ")))} // Klaus Brockhaus
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 28 2001
EXTENSIONS
More terms from David Wasserman, Sep 19 2002
More terms from Sean A. Irvine, Sep 21 2023
STATUS
approved