|
|
|
|
1, 5, 51, 68, 87, 116, 171, 176, 591, 2108, 2403, 7143, 8787, 9308, 18548, 19371, 27387, 32127, 34887, 37928, 40131, 140667, 180548, 192428, 200996, 433311, 521727, 934449, 2476671, 2617563, 3960896, 8198156, 9670748, 11892512, 16585748, 19113651, 25367396, 25643012
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
f[n_] := Plus @@ (-(d = Divisors[n])*(-1)^(Range[Length[d], 1, -1])); seq = {}; f1 = f[1]; Do[f2 = f[n]; If[f1 == f2, AppendTo[seq, n-1]]; f1 = f2, {n, 2, 50000}]; seq
SequencePosition[Table[Total[Times@@@Partition[Riffle[Reverse[Divisors[n]], {1, -1}, {2, -1, 2}], 2]], {n, 2565*10^4}], {x_, x_}][[All, 1]] (* Harvey P. Dale, Nov 06 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|