1,2

a(n) = A112233(n) - A112232(n);

a(n + A000040(n) - 1) = A000040(n),

a(n + A000040(n)) = A000040(n),

a(n + A000040(n) + 1) = A000040(n) + 1.

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

Table[If[PrimeQ[n], {n, n}, n], {n, 70}]//Flatten (* Harvey P. Dale, Aug 12 2019 *)

Cf. A109763.

Sequence in context: A168581 A024699 A083479 * A334742 A213856 A173329

Adjacent sequences: A112228 A112229 A112230 * A112232 A112233 A112234

nonn

Reinhard Zumkeller, Aug 29 2005

approved