A092510 Difference between smallest semiperimeter (see A063655) and its integer log (see A001414).

2, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 3, 0, 1, 1, 1, 2, 0, 0, 0, 2, 1, 0, 0, 2, 1, 1, 1, 0, 3, 0, 1, 3, 0, 3, 0, 0, 1, 4, 0, 2, 0, 0, 1, 4, 1, 0, 3, 4, 0, 1, 1, 0, 0, 3, 1, 5, 1, 0, 7, 0, 0, 1, 1, 5, 6, 0, 1, 5, 0, 0, 0, 2, 1, 6, 0, 0, 0, 0, 0, 7, 1, 5, 3, 6, 1, 1, 1, 2, 7, 0

Offset: 1

Author

Carlos Alves, Dec 31 2004

Keywords

• nonn

Examples

			If p is prime a(p)=1 because A063655(p) = p+1 and A001414(p) = p.
		

Links

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

Crossrefs

Cf. A063655 and A001414.

Programs

PARI

A001414(n) = { my(f=factor(n)); sum(k=1, matsize(f)[1], f[k, 1]*f[k, 2]); }; \\ From A001414.
A063655(n) = { my(c=1); fordiv(n,d,if((d*d)>=n,if((d*d)==n,return(2*d),return(c+d))); c=d); (0); };
A092510(n) = (A063655(n)-A001414(n)); \\ Antti Karttunen, Oct 20 2017

Formula

a(n) = A063655(n) - A001414(n).

Extensions

Offset corrected and missing term a(1) = 2 prepended by Antti Karttunen, Oct 20 2017