OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
di[x_] := Divisors[x] dp[x_] := Part[di[x], Flatten[Position[PrimeQ[1+di[x]], True]]]+1 Do[s=Length[dp[n]]; If[Equal[s, 2]&&Equal[MoebiusMu[n], 0], Print[n]], {n, 1, 25000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 24 2002
STATUS
approved