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.

A048402 Primes with consecutive digits that differ exactly by 5.

This page as a plain text file.
%I A048402 #17 Jun 16 2021 02:12:33
%S A048402 2,3,5,7,61,83,383,727,72727,94949,1616161,383838383,727272727,
%T A048402 383838383838383,38383838383838383,72727272727272727,
%U A048402 94949494949494949,383838383838383838383
%N A048402 Primes with consecutive digits that differ exactly by 5.
%H A048402 Harvey P. Dale, <a href="/A048402/b048402.txt">Table of n, a(n) for n = 1..30</a>
%t A048402 Module[{nn=50,w1,w2},w1=Flatten[Table[Select[FromDigits/@Table[ PadRight[ {},n,{a,a+5}],{n,2,nn}],PrimeQ],{a,4}]];w2=Flatten[Table[Select[ FromDigits/@ Table[PadRight[{},n,{a+5,a}],{n,2,nn}],PrimeQ],{a,4}]];Join[ {2,3,5,7},w1,w2]//Union] (* _Harvey P. Dale_, Jan 09 2021 *)
%Y A048402 Cf. A048398, A048399, A048400, A048401, A048403, A048404, A048405, A048407.
%K A048402 nonn,base
%O A048402 1,1
%A A048402 _Patrick De Geest_, Apr 15 1999