A176034 Difference between product of two distinct primes and next perfect square.

3, 6, 2, 1, 4, 3, 10, 3, 2, 1, 11, 10, 3, 13, 9, 7, 6, 2, 16, 12, 7, 4, 18, 15, 14, 13, 9, 7, 6, 5, 15, 10, 6, 3, 2, 22, 21, 15, 11, 10, 3, 2, 1, 24, 23, 14, 11, 10, 8, 3, 19, 18, 13, 11, 9, 2, 24, 23, 22, 20, 19, 16, 12, 11, 10, 8, 7, 6, 4, 30, 21, 19, 9, 7, 3, 2, 30, 27, 24, 22, 15, 11, 2

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 06 2010

Keywords

• nonn

Comments

9-6=3, 16-10=6, 16-14=2, 16-15=1, 25-21=4,...

Crossrefs

Cf. A006881, A056892, A106044, A176032, A176033

Programs

Mathematica

f1[n_]:=Floor[Sqrt[n]];f2[n_]:=Last/@FactorInteger[n]=={1,1};lst={};Do[If[f2[n],AppendTo[lst,(f1[n]+1)^2-n]],{n,0,6!}];lst