The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A319239

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A319239

Positions of nonzero terms in A316441, the list of coefficients in the expansion of Product_{n > 1} 1/(1 + 1/n^s).
(history; published version)

#5 by N. J. A. Sloane at Sun Sep 16 21:35:53 EDT 2018

STATUS

proposed

approved

#4 by Gus Wiseman at Sat Sep 15 18:36:41 EDT 2018

STATUS

editing

proposed

#3 by Gus Wiseman at Sat Sep 15 09:15:48 EDT 2018

CROSSREFS

Complement of belowA319240.

#2 by Gus Wiseman at Sat Sep 15 09:09:12 EDT 2018

NAME

allocated for Gus WisemanPositions of nonzero terms in A316441, the list of coefficients in the expansion of Product_{n > 1} 1/(1 + 1/n^s).

DATA

1, 2, 3, 5, 7, 8, 11, 13, 16, 17, 19, 23, 24, 27, 29, 30, 31, 32, 36, 37, 40, 41, 42, 43, 47, 53, 54, 56, 59, 60, 61, 64, 66, 67, 70, 71, 73, 78, 79, 81, 83, 84, 88, 89, 90, 96, 97, 100, 101, 102, 103, 104, 105, 107, 109, 110, 113, 114, 120, 125, 126, 127, 128

OFFSET

1,2

MATHEMATICA

facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];

Join@@Position[Table[Sum[(-1)^Length[f], {f, facs[n]}], {n, 100}], _Integer?(Abs[#]>0&)]

CROSSREFS

Complement of below.

Cf. A001055, A045778, A114592, A162247, A190938, A281116, A281118, A303386, A316441, A319237.

KEYWORD

allocated

nonn

AUTHOR

Gus Wiseman, Sep 15 2018

STATUS

approved

editing

#1 by Gus Wiseman at Sat Sep 15 09:09:12 EDT 2018

NAME

allocated for Gus Wiseman

KEYWORD

allocated

STATUS

approved