OFFSET
1,1
EXAMPLE
MATHEMATICA
a = Table[0, {4}]; x = y = 1; Do[ z = EulerPhi[n]; If[z == x + y, If[l = Length[ FactorInteger[ n]]; a[[l]] == 0, a[[l]] = n; Print[n]]]; x = y; y = z, {n, 3, 10^7 } ]; a
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Robert G. Wilson v, Dec 01 2001
EXTENSIONS
a(5) from Donovan Johnson, Feb 05 2010
STATUS
approved