OFFSET
1,1
COMMENTS
For a guide to related sequences, see A205558.
EXAMPLE
MATHEMATICA
(See the program at A205712.)
With[{prs=Prime[Range[30]]}, Flatten[Position[Flatten[Table[prs[[n]]- Take[ prs, n-1], {n, 2, Length[prs]}]], _?(Divisible[#, 9]&)]]] (* Harvey P. Dale, Dec 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 31 2012
STATUS
approved