|
Search: id:A098792
|
|
| |
|
| 1, 1, 2, 2, 6, 2, 18, 16, 38, 26, 186, 134, 630, 340, 1056, 2048, 7710, 4490, 27594, 24664, 55502, 63260, 364722, 240398, 1076426, 890532, 3314018, 4708916, 18512790, 11761532, 69273666, 67108864, 161804534, 184009658, 652647890
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Each term is a positive integer.
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MATHEMATICA
|
f[n_] := Plus @@ Binomial[n, Select[Range[n], GCD[n, # ] == 1 &]]; Table[ f[n]/n, {n, 35}] (from Robert G. Wilson v Nov 04 2004)
|
|
CROSSREFS
|
Sequence in context: A057562 A102628 A036655 this_sequence A061057 A038667 A013608
Adjacent sequences: A098789 A098790 A098791 this_sequence A098793 A098794 A098795
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet Oct 31 2004
|
|
EXTENSIONS
|
More terms from Axel Harvey (ax(AT)hirsig.ca) and Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 03 2004
|
|
|
Search completed in 0.002 seconds
|
