OFFSET
1,1
COMMENTS
This sequence cannot contain palindromes since 0 is a palindrome and any palindrome plus 0 is also a palindrome.
EXAMPLE
a(2) = 23 because 23 plus any smaller palindromic number (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22) does not yield a palindrome.
MAPLE
reverse := proc (d) local n, m; m := 0; n := d; while n>0 do m := m*10+(n mod 10); n := (n-(n mod 10))/10; od; m; end; isPalindromic := proc (n) if (n=reverse(n)) then true; else false; fi; end; n := 0; found := false; nosum := []; for c to 1400 do; while not(found) and n<c do; if isPalindromic(c+n) then found := true; else n := nextPal(n) fi; od; if not(found) then nosum := [op(nosum), c]; n := 0; else n := 0; found := false; fi; od; nosum;
MATHEMATICA
dnypQ[n_]:=NoneTrue[n+Select[Range[n-1], PalindromeQ], PalindromeQ];
Module[ {upto=1500}, Select[Range[upto], !PalindromeQ[#]&&dnypQ[#]&]] (* Harvey P. Dale, Dec 02 2021 *)
PROG
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Chuck Seggelin (barkeep(AT)plastereddragon.com), Dec 01 2003
EXTENSIONS
Definition corrected and further edits by M. F. Hasler, Apr 26 2014
STATUS
approved