A333578 Numbers k such that a division occurs in A330139(k).

5, 12, 21, 172, 15277, 703981, 2060911, 6663113

Offset: 1

Author

Eder Vanzei, Mar 27 2020

Keywords

• nonn
• more

Comments

Is this sequence infinite?

Examples

			5 is in this sequence because a division occurs in A330139(5).
		

Crossrefs

Cf. A330139.

Programs

Mathematica

seq = {}; n1 = n2 = 1; Do[n3 = n1 + n2; If[Divisible[n3, n], n3/=n; AppendTo[seq, n]]; n1 = n2; n2 = n3, {n, 3, 2*10^4}]; seq (* Amiram Eldar, Mar 28 2020 *)

PARI

lista(nn) = {my(x = 1, y = 1, z); for (n=3, nn, z = x + y; if ((z % n) == 0, z = z/n; print1(n, ", ")); x = y; y = z;);} \\ Michel Marcus, Mar 27 2020