A065926 Index values for new maxima in A065925.

1, 3, 5, 21, 25, 35, 55, 185, 265, 563, 569, 733, 3350, 3469, 6010, 6779, 10689, 11143, 14505, 18016, 30561, 31588, 37757, 59611, 65816, 67106, 75904, 118361, 214379, 241564, 255196, 414221, 648152, 703812, 881848, 1153107, 1277048, 1407769, 1719552, 1775846, 2722607, 3177728

Offset

1,2

References

J. Earls, Mathematical Bliss, Pleroma Publications, 2009, pages 99-100. ASIN: B002ACVZ6O [From Jason Earls, Nov 26 2009]

Links

Table of n, a(n) for n=1..42.

Prog

(PARI) sopf(n) = local(fac, i); fac=factor(n); sum(i=1, matsize(fac)[1], fac[i, 1])
A065926(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(k, ", ")))} \\ Klaus Brockhaus

Crossrefs

Cf. A065925, A065927.

Sequence in context: A321768 A331395 A086175 * A128561 A032414 A062225

Adjacent sequences: A065923 A065924 A065925 * A065927 A065928 A065929

Keyword

nonn

Author

Jason Earls, Nov 28 2001

Extensions

More terms from David Wasserman, Sep 19 2002

More terms from Sean A. Irvine, Sep 20 2023

Status

approved