|
%I #11 Dec 21 2021 10:15:32
%S 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,
%T 11,12,17,18,2,4,19,20,13,14,21,22,15,16,23,24,5,6,25,26,17,18,27,28,
%U 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
%N Ordinal transform of A112049.
%H Antti Karttunen, <a href="/A286579/b286579.txt">Table of n, a(n) for n = 1..32768</a>
%t A112049[n_] := For[i = 1, i <= 2n, i++, If[KroneckerSymbol[i, 2n+1] < 1, Return[PrimePi[i]]]];
%t b[_] = 0;
%t a[n_] := a[n] = With[{t = A112049[n]}, b[t] = b[t]+1];
%t Array[a, 105] (* _Jean-François Alcover_, Dec 21 2021 *)
%Y Cf. A112049.
%K nonn
%O 1,2
%A _Antti Karttunen_, May 26 2017
|
