OFFSET

0,3

LINKS

Rémy Sigrist, Table of n, a(n) for n = 0..10000

MATHEMATICA

f[n_] := n == 1 || GCD @@ Last /@ FactorInteger[n] > 1; g[l_List] := Block[{k = 1}, While[MemberQ[l, k] || ! f[k + l[[ -1]]], k++ ]; Append[l, k]]; Nest[g, {0}, 73] (* Ray Chandler, Jan 22 2007 *)

CROSSREFS

KEYWORD

nonn,look

AUTHOR

Leroy Quet, Jan 12 2007

EXTENSIONS

Extended by Ray Chandler, Jan 22 2007

STATUS

approved