cp's OEIS Frontend

A334417 a(n) is the palindrome equal to A334416(n) divided by its sum of digits.

%I A334417 #27 May 04 2020 07:05:00
%S A334417 1,1,1,1,1,1,1,1,1,4,2,7,4,3,4,7,5,4,6,7,8,9,7,55,22,11,55,22,55,22,
%T A334417 55,55,33,55,55,55,55,44,55,55,55,55,505,88,66,202,262,77,121,88,99,
%U A334417 181,151,121,101,88,505,424,181,121,151,181,131,343,202,181,141
%N A334417 a(n) is the palindrome equal to A334416(n) divided by its sum of digits.
%H A334417 <a href="https://oeis.org/wiki/Index_to_OEIS:_Section_Pac#palindromes">Index entries for sequences related to palindromes</a>
%F A334417 a(n) = A334416(n) / A007953(A334416(n)).
%e A334417 A334416(10) = 12 whose sum of digits is 3; 12/3 = 4, so a(10) = 4.
%t A334417 Select[#/Plus @@ IntegerDigits[#] & /@ Range[3000], PalindromeQ] (* _Amiram Eldar_, Apr 29 2020 *)
%o A334417 (PARI) isok(m) = iferr(my(d=digits(m/sumdigits(m))); d==Vecrev(d), E, 0);
%o A334417 apply(x->x/sumdigits(x), select(x->isok(x), [1..3000])) \\ _Michel Marcus_, Apr 29 2020
%Y A334417 Cf. A007953, A113315, A334416.
%Y A334417 Cf. A334375 (similar for primes).
%K A334417 nonn,base
%O A334417 1,10
%A A334417 _Bernard Schott_, Apr 29 2020