A346708 a(n) is the least k > 1 such that p(n) divides p(n^k), or 0 if no such k exists (p = A000041).

2, 3, 2, 3, 3, 6, 7, 2, 10

Offset: 1

Author

Altug Alkan, Jul 30 2021

Keywords

• nonn
• hard
• more

Examples

			a(8) = 2 because p(8) = 22 divides p(8^2) = 1741630.
		

Crossrefs

Cf. A000041.

Programs

Mathematica

a[n_] := Module[{k = 2, p = PartitionsP[n]}, While[! Divisible[PartitionsP[n^k], p], k++]; k]; Array[a, 9] (* Amiram Eldar, Aug 04 2021 *)

PARI

a(n)=my(t=2); while(numbpart(n^t)%numbpart(n), t++); t