OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
12 = 2^2*3, 18 = 2*3^2, ... 600 = 2^3*3*5^2, ... 158760 = 2^3*3^4*5*7^2, ...
MATHEMATICA
f[n_]:=Sort[Last/@FactorInteger[n]]; lst={}; Do[If[Length[f[n]]>1&&f[n]==Union@f[n]&&PrimeQ[n-1]&&PrimeQ[n+1], AppendTo[lst, n]], {n, 0, 5*8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 07 2010
STATUS
approved