

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

96=3, 1610=6, 1614=2, 1615=1, 2521=4,...


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, (f1[n]+1)^2n]], {n, 0, 6!}]; lst


CROSSREFS

Cf. A006881, A056892, A106044, A176032, A176033
Sequence in context: A058078 A016551 A238555 * A255051 A145896 A159963
Adjacent sequences: A176031 A176032 A176033 * A176035 A176036 A176037


KEYWORD

nonn


AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 06 2010


STATUS

approved



