The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Please make a donation to keep the OEIS running. We are now in our 56th year. In the past year we added 10000 new sequences and reached almost 9000 citations (which often say "discovered thanks to the OEIS"). Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A171945 P-positions for game of misere version of Mark. 3
 1, 4, 6, 10, 14, 16, 18, 22, 24, 26, 30, 34, 38, 40, 42, 46, 50, 54, 56, 58, 62, 64, 66, 70, 72, 74, 78, 82, 86, 88, 90, 94, 96, 98, 102, 104, 106, 110, 114, 118, 120, 122, 126, 130, 134, 136, 138, 142, 146, 150, 152, 154, 158, 160, 162, 166, 168, 170, 174 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS The same as A036554 except for the replacement of dopey by vile powers of 2. - Aviezri Fraenkel, Apr 28 2011 LINKS Aviezri S. Fraenkel, The vile, dopey, evil and odious game players, Discrete Math. 312 (1) (2012) 42-46. MAPLE isA171944 := proc(n)     option remember;     if n =0 or n =2 then         true;     elif isA171945(n) then         false;     else         true ;     end if; end proc: isA171945 := proc(n)     option remember;     if n = 0 or n =2 then         false ;     elif n = 1 then         true;     elif n mod 2 <> 0 then         return false;     elif isA171944(n/2) then         true;     else         false ;     end if; end proc: for n from 0 to 400 do     if isA171945(n) then         printf("%d, ", n);     end if; end do: # R. J. Mathar, Mar 28 2013 MATHEMATICA lim = 210; S = {1}; A = {}; Do[d = Divisors[n]; If[Complement[d, S] != {n}, A = Append[A, n]; S = Union[S, d]], {n, 1, lim}]; A (* Jean-François Alcover, Jul 11 2019, after Peter Luschny in A171944 *) CROSSREFS Complement of A171944. Also for n>1, twice A171944. Cf. A036554. Sequence in context: A110507 A224467 A134624 * A310583 A298784 A241975 Adjacent sequences:  A171942 A171943 A171944 * A171946 A171947 A171948 KEYWORD nonn,easy AUTHOR N. J. A. Sloane, Oct 29 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 5 09:47 EST 2020. Contains 338945 sequences. (Running on oeis4.)