1,1

f[n_] := Plus @@ Select[ Divisors[n], Sqrt[n/2] <= # < Sqrt[n*2] &]; s = 0; k = 0; Do[ While[k < 10^n, k++; If[ f[k] == 0, s++ ]]; Print[s], {n, 1, 7}]

Cf. A071541.

Adjacent sequences: A071537 A071538 A071539 this_sequence A071541 A071542 A071543

Sequence in context: A071579 A060497 A092273 this_sequence A103907 A108148 A099348

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), May 31 2002