A076386 Numbers n such that sum of digits in base 8 is a divisor of sum of prime divisors (A008472).

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

Author

Floor van Lamoen, Oct 08 2002

Keywords

• nonn
• base

Crossrefs

Cf. A075657, A076380 - A076387.

Programs

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;