A286579 Ordinal transform of A112049.

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

Author

Antti Karttunen, May 26 2017

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..32768

Crossrefs

Cf. A112049.

Programs

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 *)