login
Index values for new maxima in A065925.
3

%I #13 Sep 20 2023 05:52:42

%S 1,3,5,21,25,35,55,185,265,563,569,733,3350,3469,6010,6779,10689,

%T 11143,14505,18016,30561,31588,37757,59611,65816,67106,75904,118361,

%U 214379,241564,255196,414221,648152,703812,881848,1153107,1277048,1407769,1719552,1775846,2722607,3177728

%N Index values for new maxima in A065925.

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

%o (PARI) sopf(n) = local(fac, i); fac=factor(n); sum(i=1,matsize(fac)[1],fac[i,1])

%o 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_

%Y Cf. A065925, A065927.

%K nonn

%O 1,2

%A _Jason Earls_, Nov 28 2001

%E More terms from _David Wasserman_, Sep 19 2002

%E More terms from _Sean A. Irvine_, Sep 20 2023