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