login
Numbers k that divide the k-th central Delannoy number.
1

%I #7 May 17 2024 01:45:08

%S 1,3,9,21,27,81,171,189,217,243,297,351,729,903,1547,2187,3591,3661,

%T 4131,5499,5967,6019,6561,7533,8001,11997,13203,14217,15309,17181,

%U 19683,20601,22113,22599,23529,24297,25659,26163,26319,26487,28441,30051,33021,37179,37791

%N Numbers k that divide the k-th central Delannoy number.

%C Numbers k such that k | A001850(k).

%H Amiram Eldar, <a href="/A372901/b372901.txt">Table of n, a(n) for n = 1..307</a>

%e 3 is a term since A001850(3) = 63 = 3 * 21 is divisible by 3.

%e 9 is a term since A001850(9) = 1462563 = 9 * 162507 is divisible by 9.

%t Select[Range[1000], Divisible[LegendreP[#, 3], #] &]

%o (PARI) lista(kmax) = {my(cd0 = 1, cd1 = 3, cd2); print1("1, "); for(k = 2, kmax, cd2 = (3*(2*k-1)*cd1 - (k-1)*cd0)/k; if(!(cd2 % k), print1(k, ", ")); cd0 = cd1; cd1 = cd2);}

%Y Cf. A001850.

%Y Similar sequences: A014847 (Catalan), A016089 (Lucas), A023172 (Fibonacci), A051177 (partition), A232570 (tribonacci), A246692 (Pell), A266969 (Motzkin).

%K nonn

%O 1,2

%A _Amiram Eldar_, May 16 2024