A379013 Positions of zeros in A378505.

0, 3, 12, 39, 65, 78, 158, 237, 357, 537, 807, 2152, 17224, 27560, 45935, 76560, 229683, 306244, 382805, 459366, 918734, 1063635, 1294860, 1371935, 1421263, 3150013, 6300026, 8721659, 26164977, 34234782, 62763767, 76711272, 230133819, 306845092, 1227380372, 1349400644

Offset: 1

Author

Paolo Xausa and David A. Corneth, Dec 13 2024

Keywords

• nonn

Comments

See Corneth's algorithm in A378505 for finding the terms of this sequence.

Crossrefs

Cf. A378505.

Programs

Mathematica

A379013nxt[z_] := If[z == 0, 3, SelectFirst[Divisors[z*(z+1)], # > z+1 && Divisible[#*(#-1)/2 - z*(z+1)/2, #] &]];
NestList[A379013nxt, 0, 50]