A225040 a(n) is the position of prime(n) in A225039, and a(n)=0, if prime(n) is not in A225039.

1, 2, 3, 4, 6, 5, 9, 7, 8, 10, 13, 15, 16, 28, 50, 20, 11, 12, 14, 69, 66, 17, 19, 18, 32, 86, 21, 64, 22, 38, 26, 74, 23, 41, 24, 25, 71, 89, 27, 49, 84, 33, 30, 35, 34, 31, 29, 175, 96, 60, 39, 181, 36, 110, 40, 46, 37, 68, 138, 119, 45, 44, 139, 42, 73, 43

Offset: 1

Author

Vladimir Shevelev, Apr 25 2013

Keywords

• nonn

Comments

Conjecture: All terms are positive, or equivalently, the sequence is a permutation of the positive integers.

Links

• Peter J. C. Moses, Table of n, a(n) for n = 1..1600

Crossrefs

Cf. A225017, A225039.

Programs

Mathematica

a={}; n=1; While[(tmp=Position[A225039, Prime[n]]) != {}, AppendTo[a,tmp]; n++]; Flatten[a] (* Peter J. C. Moses, Apr 25 2013 *)