%I A088997
%S A088997 12,23,34,45,1011,1020,1021,1029,1031,1038,1041,1047,1051,1061,1065,
%T A088997 1071,1074,1081,1091,1092,1101,1112,1121,1130,1131,1132,1139,1141,1142,
%U A088997 1148,1151,1152,1157,1161,1162,1171,1172,1175,1181,1182,1191,1192,1201
%N A088997 Base 10 numbers such that a(n) plus any positive palindrome less than 
               a(n) does not yield a palindrome.
%C A088997 This sequence can contain no palindromes since 0 is a palindrome and 
               any palindrome plus 0 is also a palindrome.
%e A088997 a(2) = 23 because 23 plus any previous positive palindromic number (0, 
               1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22) does not yield a palindrome.
%p A088997 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;
%Y A088997 Sequence in context: A001704 A127421 A112131 this_sequence A049852 A045532 
               A083683
%Y A088997 Adjacent sequences: A088994 A088995 A088996 this_sequence A088998 A088999 
               A089000
%K A088997 base,nonn
%O A088997 1,1
%A A088997 Chuck Seggelin (barkeep(AT)plastereddragon.com), Dec 01 2003