login
A176034
Difference between product of two distinct primes and next perfect square.
2
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,1
COMMENTS
9-6=3, 16-10=6, 16-14=2, 16-15=1, 25-21=4,...
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
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved