login
A076386
Numbers n such that sum of digits in base 8 is a divisor of sum of prime divisors (A008472).
1
2, 3, 5, 7, 8, 12, 15, 16, 26, 49, 64, 65, 70, 86, 96, 102, 123, 128, 130, 140, 150, 156, 201, 208, 209, 215, 225, 247, 258, 266, 280, 286, 299, 305, 326, 350, 356, 360, 403, 424, 456, 471, 474, 490, 495, 512, 513, 515, 519, 520, 530, 532, 545, 551, 555, 558
OFFSET
1,1
MAPLE
A076386 := proc(n) local i, j, t, t1, sod, sopd; t := NULL; for i from 2 to n do t1 := i; sod := 0; while t1 <> 0 do sod := sod + (t1 mod 8); t1 := floor(t1/8); od; sopd := 0; j := 1; while ithprime(j) <= i do if i mod ithprime(j) = 0 then sopd := sopd+ithprime(j); fi; j := j+1; od; if sopd mod sod = 0 then t := t, i; fi; od; t; end;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Floor van Lamoen, Oct 08 2002
STATUS
approved