login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Positions of records in A329656.
0

%I #12 Jun 25 2024 01:28:49

%S 1,2,6,10,14,51,87,159,177,332,517,1757,2867,3959,10919,24463,34423,

%T 49582,83099,609023,833039,1429559,2162159,7792823,13597139,20252299,

%U 20563194,21146159,32729759,110159279,244879751,253436399

%N Positions of records in A329656.

%C Numbers n such that A329656(n) > A329656(k) for all k < n.

%e a(3) = 6 is a member because A329656(6)=2 and A329656(k)<2 for k<6.

%p f:= proc(n) local s, t;

%p s:= convert(map(convert,ifactors(n)[2],`*`),`+`);

%p for t from 1 do

%p s:= n mod s;

%p if s = 0 then return t fi

%p od

%p end proc:

%p Res:= 1: count:= 1: vmax:= 0:

%p for n from 2 while count < 23 do

%p v:= f(n);

%p if v > vmax then

%p vmax:= v;

%p Res:= Res, n;

%p count:= count+1;

%p fi

%p od:

%p Res;

%Y Cf. A329656.

%K nonn,more

%O 1,2

%A _J. M. Bergot_ and _Robert Israel_, Nov 18 2019

%E a(29)-a(32) from _Michael S. Branicky_, Jun 24 2024