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,2

Comments

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

Links

Table of n, a(n) for n=1..36.

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]

Crossrefs

Cf. A378505.

Sequence in context: A129014 A335412 A332376 * A341712 A261384 A055294

Adjacent sequences: A379010 A379011 A379012 * A379014 A379015 A379016

Keyword

nonn

Author

Paolo Xausa and David A. Corneth, Dec 13 2024

Status

approved