login
A253248
Number of k <= n with A000203(k) <= A000203(n).
1
1, 2, 3, 4, 4, 6, 6, 8, 8, 10, 8, 12, 10, 13, 14, 16, 13, 18, 14, 20, 19, 20, 17, 24, 20, 25, 24, 27, 19, 30, 23, 31, 29, 30, 30, 36, 25, 35, 34, 39, 30, 42, 31, 41, 41, 41, 34, 48, 38, 48, 44, 51, 36, 53, 46, 55, 48, 51, 42, 60, 43, 57, 59, 63, 52
OFFSET
1,2
COMMENTS
a(n) <= n, with equality if and only if n is in A002093.
Empirically it appears that lim inf_(n -> infinity) a(n)/n = 2/3, with minimum value a(29)/29 = 19/29.
LINKS
EXAMPLE
A000203(7) = 8 >= A000203(k) for k = 1,2,3,4,5,7, so a(7) = 6.
MAPLE
N:= 1000:
B:= map(numtheory:-sigma, [$1..N]):
M:= max(B):
X:= Vector(M):
for n from 1 to N do
b:= B[n];
X[b..-1]:= X[b..-1] + <(1$(M-b+1))>;
A[n]:= X[b];
od:
seq(A[n], n=1..N);
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Robert Israel, Jun 04 2015
STATUS
approved