login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=1..59.

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 20 02:10 EDT 2019. Contains 328244 sequences. (Running on oeis4.)