This site is supported by donations to The OEIS Foundation.

 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 A256476 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 23 22:07 EDT 2019. Contains 328373 sequences. (Running on oeis4.)