The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A048420 Primes whose consecutive digits differ by 8 or 9. 7
 2, 3, 5, 7, 19, 191, 809, 919, 9091, 80809, 80909, 91909, 190909, 909091, 1908091, 1909091, 9090919, 9091909, 19090909, 80919191, 190909091, 191908091, 809080919, 809191919, 908080909, 919080919, 919191919, 1909080809 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MATHEMATICA Join[{2, 3, 5, 7}, Select[FromDigits/@Tuples[{0, 1, 8, 9}, 10], PrimeQ[#] && AllTrue[ Abs[ Differences[ IntegerDigits[#]]], #>7&]&]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 08 2017 *) CROSSREFS Cf. A048413-A048419. Sequence in context: A236303 A117315 A158473 * A048405 A110457 A320584 Adjacent sequences:  A048417 A048418 A048419 * A048421 A048422 A048423 KEYWORD nonn,base AUTHOR Patrick De Geest, Apr 15 1999 EXTENSIONS More terms from Naohiro Nomoto, Jul 28 2001 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 7 10:19 EDT 2022. Contains 355985 sequences. (Running on oeis4.)