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,2

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

Mathematica

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

Crossrefs

Cf. A225017, A225039.

Sequence in context: A191446 A230764 A276685 * A327173 A351412 A118315

Adjacent sequences: A225037 A225038 A225039 * A225041 A225042 A225043

Keyword

nonn

Author

Vladimir Shevelev, Apr 25 2013

Status

approved