%I #5 Mar 09 2017 11:10:24
%S 8,11,17,23,29,35,47,53,71,99,101,107,111,119,125,131,143,161,188,191,
%T 203,209,215,223,233,251,263,269,287,305,307,311,321,323,335,341,349,
%U 363,391,395,407,413,419,431,447,458,467,475,489,503,505,511,521,528
%N Numbers n such that sum of the digits of n and n+2 divides n+1, n >= 1.
%H Harvey P. Dale, <a href="/A127271/b127271.txt">Table of n, a(n) for n = 1..1000</a>
%e Sum of the digits of 8 and 10 is 8+1 = 9, which divides 9. Hence 8 is a term.
%e Sum of the digits of 13 and 15 is 4+6 = 10, which does not divide 14. Hence 13 is not in the sequence.
%e Sum of the digits of 47 and 49 is 11+13 = 24, which divides 48. Hence 47 is a term.
%t Select[Partition[Range[600],3,1],Divisible[#[[2]],Total[Flatten[ IntegerDigits/@ {#[[1]],#[[3]]}]]]&][[All,1]] (* _Harvey P. Dale_, Mar 09 2017 *)
%K nonn,base,less
%O 1,1
%A _J. M. Bergot_, Mar 27 2007
%E Edited, corrected and extended by _Klaus Brockhaus_, Mar 29 2007
|