|
%I #2 Mar 31 2012 12:38:35
%S 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,
%T 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,
%U 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
%N Difference between product of two distinct primes and next perfect square.
%C 9-6=3, 16-10=6, 16-14=2, 16-15=1, 25-21=4,...
%t 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
%Y Cf. A006881, A056892, A106044, A176032, A176033
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 06 2010
|
