A318923 Apply Lenormand's transformation k -> A318921(k) to the primes.

0, 1, 0, 3, 1, 1, 0, 1, 3, 3, 15, 0, 0, 1, 7, 1, 7, 7, 1, 3, 0, 7, 1, 2, 8, 2, 11, 3, 3, 12, 63, 1, 0, 1, 0, 3, 3, 1, 3, 1, 5, 1, 31, 16, 4, 19, 5, 31, 25, 6, 6, 31, 28, 31, 0, 3, 1, 7, 0, 2, 3, 0, 5, 7, 6, 7, 1, 0, 3, 3, 8, 11, 15, 3, 15, 63, 8, 9, 8, 10, 9, 2, 15, 12, 15, 15, 48, 12

Offset

1,4

Links

Alois P. Heinz, Table of n, a(n) for n = 1..20000

Maple

a:= proc(n) local d, i, l, m, r;
      i, r, l, m:= 0$2, 2, ithprime(n);
      while m>0 do d:= irem(m, 2, 'm');
        if d=l then r:= r+d*2^i; i:=i+1 fi; l:= d
      od; r
    end:
seq(a(n), n=1..100);  # Alois P. Heinz, Sep 08 2018

Crossrefs

Cf. A000040, A318921.

Sequence in context: A196838 A284376 A088205 * A336111 A244657 A072024

Adjacent sequences: A318920 A318921 A318922 * A318924 A318925 A318926

Keyword

nonn,base

Author

N. J. A. Sloane, Sep 08 2018

Status

approved