OFFSET
1,3
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..6267
MATHEMATICA
With[{s = Import["https://oeis.org/A373390/b373390.txt", "Data"][[All, -1]]}, MapIndexed[s[[#1 - 1]] - Prime@ First[#2] &, Values[KeySort@ KeySelect[PositionIndex[s], PrimeQ] ][[All, 1]] ] ] (* Michael De Vlieger, Jun 29 2024 *)
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Jun 29 2024
STATUS
approved