|
Search: id:A103969
|
|
| |
|
| 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 16, 18, 20, 24, 28, 32, 36, 40, 48, 56, 64, 72, 80, 96, 112, 128, 144, 160, 192, 224, 256, 288, 320, 384, 448, 512, 576, 640, 768, 896, 1024, 1152, 1280, 1536, 1792, 2048, 2304, 2560, 3072, 3584, 4096, 4608, 5120, 6144, 7168
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
9 is in the sequence since A005940(9)=7 and A005941(7)=9.
|
|
MATHEMATICA
|
f[n_] := Block[{p = Partition[ Split[ Join[ IntegerDigits[n - 1, 2], {2}]], 2]}, Times @@ Flatten[ Table[q = Take[p, -i]; Prime[ Count[ Flatten[q], 0] + 1]^q[[1, 1]], {i, Length[p]}] ]]; t = Table[ f[n], {n, 10^4}]; u = Flatten[ Table[ Position[t, n, 1, 1], {n, 10^4}]]; Do[ If[ u[[n]] == {}, u[[n]] = {0}], {n, 10^4}]; Flatten[ Position[ Take[t, 10^4] - Flatten[u], 0]]
|
|
CROSSREFS
|
Cf. A005940, A005941.
Sequence in context: A060472 A130514 A130232 this_sequence A030141 A064915 A120003
Adjacent sequences: A103966 A103967 A103968 this_sequence A103970 A103971 A103972
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 22 2005
|
|
|
Search completed in 0.002 seconds
|
