|
%I #36 Jun 20 2021 02:26:21
%S 1,2,3,4,5,6,7,8,9,12,18,21,24,27,36,42,45,48,54,63,72,81,84,110,132,
%T 198,220,264,330,396,440,550,594,605,660,715,770,792,825,880,935,990,
%U 1010,1056,1188,1212,1310,1386,1452,1584,1782,1810,1812,1815,1818,1848
%N Numbers m such that (m / sum of digits of m) is a palindrome.
%C Not to be confused with A114440 whose first 23 terms are identical to the terms of this sequence, while A114440(24) = 108 and a(24) = 110.
%H Giovanni Resta, <a href="/A334416/b334416.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>
%e The number 264 is a term of the sequence because it is divisible by the sum of its digits: 2+6+4=12; 264/12=22 and 22 is a palindrome.
%t Select[Range[2000], PalindromeQ[# / Plus @@ IntegerDigits[#]] &] (* _Amiram Eldar_, Apr 28 2020 *)
%o (PARI) isok(m) = iferr(my(d=digits(m/sumdigits(m))); d==Vecrev(d), E, 0); \\ _Michel Marcus_, Apr 29 2020
%Y Cf. A001101 (similar for primes).
%Y Cf. A334417 (resulting palindromic quotients).
%Y Subsequence of A005349 (Niven (or Harshad) numbers).
%Y Subsequence: A276142 (palindromic terms).
%K nonn,base
%O 1,2
%A _Bernard Schott_, Apr 28 2020
|
