OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..32768
MATHEMATICA
A112049[n_] := For[i = 1, i <= 2n, i++, If[KroneckerSymbol[i, 2n+1] < 1, Return[PrimePi[i]]]];
b[_] = 0;
a[n_] := a[n] = With[{t = A112049[n]}, b[t] = b[t]+1];
Array[a, 105] (* Jean-François Alcover, Dec 21 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 26 2017
STATUS
approved