

A176035


Difference between product of two distinct primes and previous perfect square.


1



2, 1, 5, 6, 5, 6, 1, 8, 9, 10, 2, 3, 10, 2, 6, 8, 9, 13, 1, 5, 10, 13, 1, 4, 5, 6, 10, 12, 13, 14, 6, 11, 15, 18, 19, 1, 2, 8, 12, 13, 20, 21, 22, 1, 2, 11, 14, 15, 17, 22, 8, 9, 14, 16, 18, 25, 5, 6, 7, 9, 10, 13, 17, 18, 19, 21, 22, 23, 25, 1, 10, 12, 22, 24, 28, 29, 3, 6, 9, 11, 18, 22, 31
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

64=2, 109=1, 149=5, 159=6, 2116=5,..


LINKS

Table of n, a(n) for n=1..83.


MATHEMATICA

f1[n_]:=Floor[Sqrt[n]]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f2[n], AppendTo[lst, nf1[n]^2]], {n, 0, 5!}]; lst


CROSSREFS

Cf. A006881, A056892, A106044, A176032, A176033, A176034
Sequence in context: A075680 A192024 A249283 * A190992 A160166 A197683
Adjacent sequences: A176032 A176033 A176034 * A176036 A176037 A176038


KEYWORD

nonn


AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 06 2010


STATUS

approved



