A083832 Palindromes of the form 4n + 1 where n is also a palindrome. Palindromes arising in A083831.
5, 9, 33, 353, 525, 565, 929, 969, 3553, 35553, 52125, 52525, 52925, 56165, 56565, 56965, 92129, 92529, 92929, 96169, 96569, 96969, 355553, 3555553, 5212125, 5216125, 5252525, 5256525, 5292925, 5296925, 5612165, 5616165, 5652565
Offset: 1
Programs
-
Mathematica
4#+1&/@Select[Range[1500000],AllTrue[{#,4#+1},PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 06 2017 *)
Extensions
Corrected and extended by Ray Chandler, May 21 2003