OFFSET
1,1
COMMENTS
A073490(a(n)) > 0.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
pa[n_, k_] := If[k == NextPrime[n], 0, 1]; Select[Range[126], Total[pa @@@ Partition[First /@ FactorInteger[#], 2, 1]] > 0 &] (* Jayanta Basu, Jul 01 2013 *)
PROG
(Haskell)
a073492 n = a073492_list !! (n-1)
a073492_list = filter ((> 0) . a073490) [1..]
-- Reinhard Zumkeller, Dec 20 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 03 2002
STATUS
approved