|
%I #24 Jan 26 2022 09:05:31
%S 0,1,5,22,137,273,715,863,2731,8541,486618,877173,1378507,1731746,
%T 2273915,2436099,5401396,7153679,7560069,14529486,23887419,23975475,
%U 73114035,84890503,88837611,235680755,235769755,272515513,440021417,782357262,1414071397,2352019439
%N Numbers k such that k*(k+6) is a palindrome.
%H Michael S. Branicky, <a href="/A028561/b028561.txt">Table of n, a(n) for n = 1..35</a>
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/consemor.htm">Palindromic Quasipronics of the form n(n+x)</a>
%H Erich Friedman, <a href="https://erich-friedman.github.io/numbers.html">What's Special About This Number?</a> (See entries 863, 8541.)
%t Select[Range[0,24*10^6],PalindromeQ[#(#+6)]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 04 2017 *)
%o (Python)
%o from itertools import count, islice
%o def ispal(n): s = str(n); return s == s[::-1]
%o def agen():
%o for k in count(0):
%o if ispal(k*(k+6)):
%o yield k
%o print(list(islice(agen(), 22))) # _Michael S. Branicky_, Jan 25 2022
%Y Cf. A002113, A028560, A028562.
%K nonn,base
%O 1,3
%A _Patrick De Geest_
%E a(23) and beyond from _Michael S. Branicky_, Jan 25 2022
|
