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

Author

N. J. A. Sloane, Sep 08 2018

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A000040, A318921.

Programs

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