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,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

Cf. A112049.

Sequence in context: A259576 A330636 A030330 * A293689 A059261 A285869

Adjacent sequences: A286576 A286577 A286578 * A286580 A286581 A286582

Keyword

nonn

Author

Antti Karttunen, May 26 2017

Status

approved