|
%I #13 Mar 18 2016 12:31:03
%S 1,40,210,8656341,86563410
%N Numbers n such that lambda(n) = reversal(n).
%C Lambda(n) is the Carmichael lambda function A002322.
%e 210 is in the sequence because lambda(210)= reversal(210) = 12.
%t Do[If[CarmichaelLambda [n] == FromDigits[Reverse[IntegerDigits[n]]], Print[n]], {n, 1, 10^8}]
%o (PARI) isok(n) = lcm(znstar(n)[2]) == subst(Polrev(digits(n)), x, 10); \\ _Michel Marcus_, Mar 18 2016
%Y Cf. A002322, A004086.
%K nonn,base,more
%O 1,2
%A _Michel Lagneau_, Nov 18 2010
|
