A393398 Positions of primes in A391972.

2, 4, 8, 10, 18, 28, 32, 42, 46, 56, 69, 73, 86, 111, 121, 158, 162, 196, 200, 213, 223, 227, 240, 250, 263, 279, 304, 314, 327, 343, 377, 390, 415, 419, 429, 466, 470, 480, 505, 542, 570, 583, 596, 606, 610, 632, 729, 733, 743, 747, 760, 770, 774, 787, 893, 897, 958, 971, 981

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Formula

A391972(a(n)) = A393386(n).

a(n) = A087128(n) + n.

Mathematica

Module[{k = 0, i = 0}, Reap[Nest[If[PrimeQ[#], Sow[++i + k]; 1, ++k + #] &, 1, 1000]][[2, 1]]] (* Paolo Xausa, Feb 13 2026 *)

Crossrefs

Cf. A087128, A391972, A393386 (corresponding primes).

Sequence in context: A066363 A122636 A095726 * A322375 A261931 A173816

Adjacent sequences: A393395 A393396 A393397 * A393399 A393400 A393401

Keyword

nonn

Author

Paolo Xausa, Feb 13 2026

Status

approved