A219248 Numbers such that the absolute difference of any two adjacent (decimal) digits is prime.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 13, 14, 16, 18, 20, 24, 25, 27, 29, 30, 31, 35, 36, 38, 41, 42, 46, 47, 49, 50, 52, 53, 57, 58, 61, 63, 64, 68, 69, 70, 72, 74, 75, 79, 81, 83, 85, 86, 92, 94, 96, 97, 130, 131, 135, 136, 138, 141, 142, 146, 147, 149, 161, 163, 164

Offset

1,3

Comments

Numbers which may (and do) occur in A219250 and A219249 (union {0}).

This is to A219250 and A219249 what A182175 is to A182177 and A182178.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

E. Angelini, Any digit-pair in S sums to a prime, SeqFan list, Apr 11 2013

Mathematica

Select[Range[0, 200], And@@PrimeQ[Abs[Differences[IntegerDigits[#]]]]&] (* Harvey P. Dale, Jun 06 2014 *)

Prog

(PARI) is_A219248(n)={!for(i=2, #n=digits(n), isprime(abs(n[i-1]-n[i]))||return)}

Crossrefs

Sequence in context: A052061 A045540 A119509 * A055568 A360822 A283161

Adjacent sequences: A219245 A219246 A219247 * A219249 A219250 A219251

Keyword

nonn,base

Author

M. F. Hasler, Apr 12 2013

Status

approved