|
%I #3 Oct 14 2017 19:33:05
%S 1,4,6,8,9,11,44,66,88,99,101,111,141,161,181,191,414,444,464,484,494,
%T 606,616,646,666,686,696,808,818,848,868,888,898,909,919,949,969,989,
%U 999,1001,1111,1441,1661,1881,1991,4004,4114,4444,4664,4884,4994
%N Palindromes in sequence A084984.
%t palnpdQ[n_]:=And@@Table[FreeQ[IntegerDigits[n],i],{i,{2,3,5,7}}] && PalindromeQ[n]; Select[Range[7000],palnpdQ] (* _Harvey P. Dale_, Oct 14 2017 *)
%Y Cf. A084984.
%K nonn,base
%O 1,2
%A Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 27 2003
%E More terms from _Harvey P. Dale_, Oct 14 2017
|
