OFFSET
1,1
COMMENTS
The number n has a prime factor of the form 18k+1.
LINKS
Antonio Roldán and T. D. Noe, Table of n, a(n) for n = 1..10000 (542 terms from Antonio Roldán)
EXAMPLE
12673 is in the sequence because 12673 = 19*23*29, their largest proper divisor is 667. Both have a digital sum of 19.
MATHEMATICA
Select[Range[2, 10000], Mod[#, 9] > 0 && Total[IntegerDigits[#]] == Total[IntegerDigits[Divisors[#][[-2]]]] &] (* T. D. Noe, Nov 20 2012 *)
PROG
(PARI) largdiv(n)=if(n==1, 1, n/factor(n)[1, 1]) /* Charles R Greathouse IV, Jun 15 2011 */
digsum(n)={local (d, p); d=0; p=n; while(p, d+=p%10; p=floor(p/10)); return(d)}
{ k=0; for (n=2, 10^5, if(digsum(n)==digsum(largdiv(n))&&n%9>0, k=k+1; write("B219340.txt", k, ", ", n))); } /* Antonio Roldán, Nov 18 2012 */
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antonio Roldán, Nov 18 2012
STATUS
approved