login
A286579
Ordinal transform of A112049.
2
1, 2, 1, 2, 3, 4, 3, 4, 5, 6, 1, 2, 7, 8, 5, 6, 9, 10, 7, 8, 11, 12, 3, 1, 13, 14, 9, 10, 15, 16, 11, 12, 17, 18, 2, 4, 19, 20, 13, 14, 21, 22, 15, 16, 23, 24, 5, 6, 25, 26, 17, 18, 27, 28, 19, 20, 29, 30, 3, 1, 31, 32, 21, 22, 33, 34, 23, 24, 35, 36, 7, 8, 37, 38, 25, 26, 39, 40, 27, 28, 41, 42, 9, 1, 43, 44, 29
OFFSET
1,2
LINKS
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
Cf. A112049.
Sequence in context: A259576 A330636 A030330 * A293689 A059261 A285869
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 26 2017
STATUS
approved