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

 Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 60, we have over 367,000 sequences, and we’ve crossed 11,000 citations (which often say “discovered thanks to the OEIS”). Other ways to Give
 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A182175 Numbers with the property that every pair of adjacent digits sum to a prime number. 12
 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 14, 16, 20, 21, 23, 25, 29, 30, 32, 34, 38, 41, 43, 47, 49, 50, 52, 56, 58, 61, 65, 67, 70, 74, 76, 83, 85, 89, 92, 94, 98, 111, 112, 114, 116, 120, 121, 123, 125, 129, 141, 143, 147, 149, 161, 165, 167, 202, 203, 205, 207, 211, 212, 214, 216, 230, 232, 234 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS Complement of A219110. - M. F. Hasler, Apr 11 2013 LINKS Zak Seidov, Table of n, a(n) for n = 1..10000 EXAMPLE 983 is in the sequence since 9+8 is prime and 8+3 is prime. MAPLE N:= 4: # to get all terms with up to N digits. for p from 0 to 9 do P[p]:= select(t -> isprime(t+p), [\$0..9]) od: F:= proc(t) local r, p; r:= t mod 10; op(map(`+`, P[r], 10*t)) end proc: S[1]:= {\$1..9}: for j from 2 to N do S[j]:= map(F, S[j-1]) od: `union`({0}, seq(S[j], j=1..N)); # if using Maple 11 or lower, uncomment the next line: # sort(convert(%, list)); # Robert Israel, Oct 27 2014 MATHEMATICA fQ[n_] := Module[{d = IntegerDigits[n], s}, s = Most[d] + Rest[d]; And @@ PrimeQ[s]]; Flatten[Join[{Range[0, 9], Select[Range[11, 300], fQ]}]], fQ] (* T. D. Noe, Aug 21 2012 and Apr 17 2013; modified by Zak Seidov, Oct 28 2014 *) PROG (PARI) is_A182175(n)=!for(i=2, #n=digits(n), isprime(n[i-1]+n[i])||return) \\ M. F. Hasler, Oct 27 2014 CROSSREFS These are the candidate numbers for extending A182178. Cf. A219110. Sequence in context: A178843 A252996 A252495 * A254329 A128870 A355620 Adjacent sequences: A182172 A182173 A182174 * A182176 A182177 A182178 KEYWORD nonn,base AUTHOR Jim Nastos, Apr 16 2012 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 December 2 09:21 EST 2023. Contains 367516 sequences. (Running on oeis4.)