|
Search: id:A099072
|
|
| |
|
| 1, 2, 3, 3, 4, 6, 5, 7, 8, 6, 9, 12, 7, 17, 13, 8, 15, 18, 9, 21, 19, 6, 30, 11, 24, 19, 23, 18, 30, 27, 22, 18, 42, 11, 30, 42, 9, 39, 36, 30, 19, 56, 6, 48, 57, 13, 44, 46, 17, 45, 69, 13, 41, 49, 56, 27, 85, 18, 30, 84, 26, 64, 26, 64, 47, 54, 45, 94, 17, 36, 85, 60, 23, 79, 98
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
del[lst_, k_] := lst[[ Select[ Range[ Length[ lst]], Mod[ #, k] != 0 &]]]; For[ k = 2; s = Range[10000], k <= Length[s], k++, s = del[s, k]]; (Drop[s, 1] - Drop[s, -1])/2
|
|
CROSSREFS
|
Cf. A000960, A056526.
Sequence in context: A003977 A003971 A131187 this_sequence A106464 A093003 A118096
Adjacent sequences: A099069 A099070 A099071 this_sequence A099073 A099074 A099075
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), Nov 15 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 15 2004
|
|
|
Search completed in 0.002 seconds
|
