cp's OEIS Frontend

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.

A048405 Primes with consecutive digits that differ exactly by 8.

This page as a plain text file.
%I A048405 #16 Jan 04 2023 21:02:31
%S A048405 2,3,5,7,19,191,919,919191919,91919191919,91919191919191919,
%T A048405 91919191919191919191919,191919191919191919191919191919191
%N A048405 Primes with consecutive digits that differ exactly by 8.
%C A048405 The next term (a(13)) has 133 digits. - _Harvey P. Dale_, Jan 04 2023
%H A048405 Sean A. Irvine, <a href="/A048405/b048405.txt">Table of n, a(n) for n = 1..13</a>
%e A048405 2 is a term since all its consecutive digits differ by 5 (there aren't any).
%e A048405 19 is a term because 1 and 9 differ by 8.
%e A048405 23 is not a term because its consecutive digits differ only by 1.
%t A048405 Module[{nn=500,nine,one},one=Select[Table[FromDigits[PadRight[{},n,{1,9}]],{n,nn}],PrimeQ];nine=Select[Table[FromDigits[PadRight[{},n,{9,1}]],{n,nn}],PrimeQ];Sort[Join[{2,3,5,7},nine,one]]] (* _Harvey P. Dale_, Jan 04 2023 *)
%Y A048405 Cf. A048398, A048399, A048400, A048401, A048402, A048403, A048404, A048410.
%K A048405 nonn,base
%O A048405 1,1
%A A048405 _Patrick De Geest_, Apr 15 1999
%E A048405 Offset corrected by _Sean A. Irvine_, Jun 16 2021