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

2, 3, 5, 6, 25, 30, 36, 38, 39, 42, 60, 78, 84, 90, 106, 114, 120, 122, 126, 130, 150, 152, 156, 171, 178, 180, 183, 186, 187, 194, 198, 216, 217, 218, 219, 221, 222, 228, 230, 240, 244, 252, 255, 258, 259, 260, 262, 264, 270, 287, 294, 297, 299, 300, 303, 321

Offset

1,1

Links

Table of n, a(n) for n=1..56.

Maple

A076384 := 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 6); t1 := floor(t1/6); 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;

Mathematica

Select[Range[2, 350], Divisible[Total[Transpose[FactorInteger[#]][[1]]], Total[ IntegerDigits[#, 6]]]&] (* Harvey P. Dale, May 26 2013 *)

Crossrefs

Cf. A075657, A076380 - A076387.

Sequence in context: A131599 A263650 A345709 * A261579 A270517 A124648

Adjacent sequences: A076381 A076382 A076383 * A076385 A076386 A076387

Keyword

nonn,base

Author

Floor van Lamoen, Oct 08 2002

Status

approved