This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A089316 #14 May 09 2021 03:31:45
%S A089316 131,313,353,757,797,35353,35753,75797,79757,97579,3131353,3135313,
%T A089316 3531313,7535797,313131353,313135313,313579753,353535313,357531313,
%U A089316 357531353,357535753,357575753,357975353,753535357,757975357,975353579
%N A089316 Prime worms [successive digit differences with absolute value of 2].
%H A089316 Carlos Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_246.htm">Puzzle 246. The worm</a>, The Prime Puzzles and Problems Connection.
%F A089316 Select prime numbers having the same first and last digits; if the uniform absolute value of successive digit differences is 2, add to sequence.
%e A089316 a(4)=797; first and last digits are 7; abs(7-9)=2; abs(9-7)=2; the worm is 7.
%t A089316 pwQ[n_]:=Module[{idn=IntegerDigits[n]},First[idn]==Last[idn]&&Union[Abs[ Differences[idn]]]=={2}]; Select[Prime[Range[50000000]],pwQ] (* _Harvey P. Dale_, Mar 26 2013 *)
%Y A089316 Cf. A089291.
%Y A089316 This is a subset of A048399. Cf. A089291, A089315, A089317, A048398-A048405.
%K A089316 easy,nonn,base
%O A089316 0,1
%A A089316 _Enoch Haga_, Dec 25 2003