|
%I #18 Dec 27 2023 23:44:22
%S 1,2,3,4,6,9,88,595
%N Palindromes in Narayana's cows sequence (A000930).
%C 595 is probably the last term.
%p a := proc(n) if n < 4 then n else
%p simplify(hypergeom([-n/3, (1-n)/3, (-1-n)/3], [-n/2, (-1-n)/2], -27/4));
%p convert(%, base, 10); ListTools:-Reverse(%);
%p if %% = % then add(%[k]*10^(k-1), k=1..nops(%)) else NULL fi fi end:
%p seq(a(n), n=1..200); # _Peter Luschny_, Nov 07 2017
%Y Cf. A000930, A002113, A045504, A055391.
%K nonn,base,more,hard
%O 1,2
%A _Chai Wah Wu_, Nov 06 2017
|
