|
|
A191401
|
|
k-almost primes which are digitally balanced in base 2 and have 2k digits in base 2, for some k >= 1.
|
|
0
|
|
|
2, 9, 10, 42, 44, 50, 52, 135, 150, 156, 184, 198, 204, 210, 225, 228, 232, 675, 684, 696, 728, 744, 752, 920, 944, 968, 976, 2484, 2544, 2646, 2673, 2744, 2772, 2835, 2904, 2928, 2992, 3132, 3150, 3192
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
10=A031443(3) is in the sequence because it has 2 ones and 2 zeros in binary, and is a semiprime (A001358).
50=A031443(12) is in the sequence because it has 3 ones and 3 zeros in binary and is a 3-almost prime (A014612).
|
|
MAPLE
|
isA031443 := proc(n) local d2 ; d2 := nops(convert(n, base, 2)) ; return( 2*wt(n) = d2 ) ; end proc ;
isA191401 := proc(n) local k ; if isA031443(n) then k := nops(convert(n, base, 2))/2 ; return( numtheory[bigomega](n) = k ) ; else false; end if; end proc:
for n from 1 to 3200 do if isA191401(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Jun 08 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|