OFFSET
1,1
COMMENTS
Sequence gives the differences between the successive terms of A256393, each difference being equal to their unique shared prime factor.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..4095
MATHEMATICA
f[n_] := Block[{pf = First /@ FactorInteger@ n},
If[EvenQ@ n, Max@ pf, Min@ pf]]; s = {2}; lmt = 94; For[k = 2,
k <= lmt, k++, AppendTo[s, s[[k - 1]] + f@ s[[k - 1]]]]; Abs[
Subtract @@@ Partition[s, 2, 1]] (* Michael De Vlieger, Apr 19 2015 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 19 2015
STATUS
approved