A084985 Palindromes in sequence A084984.
1, 4, 6, 8, 9, 11, 44, 66, 88, 99, 101, 111, 141, 161, 181, 191, 414, 444, 464, 484, 494, 606, 616, 646, 666, 686, 696, 808, 818, 848, 868, 888, 898, 909, 919, 949, 969, 989, 999, 1001, 1111, 1441, 1661, 1881, 1991, 4004, 4114, 4444, 4664, 4884, 4994
Offset: 1
Crossrefs
Cf. A084984.
Programs
-
Mathematica
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 *)
Extensions
More terms from Harvey P. Dale, Oct 14 2017