A243463 Numbers n such that prime(n) and phi(n) have no common digits.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 17, 19, 20, 21, 22, 23, 25, 29, 30, 31, 33, 37, 39, 41, 43, 44, 45, 46, 47, 48, 55, 59, 61, 65, 66, 67, 71, 72, 75, 77, 78, 79, 80, 83, 87, 89, 93, 95, 99, 101, 102, 103, 104, 105, 107, 109, 112, 115, 117, 118

Offset

1,2

Links

Colin Barker, Table of n, a(n) for n = 1..3000

Example

109 is in the sequence because prime(109) = 599 and phi(109) = 108, which has no digits in common with 599.

Mathematica

Select[Range[120], Intersection[IntegerDigits[Prime[#]], IntegerDigits[ EulerPhi[ #]]]=={}&] (* Harvey P. Dale, Apr 23 2018 *)

Prog

(PARI) s=[]; for(n=1, 300, if(setintersect(vecsort(digits(prime(n)), , 8), vecsort(digits(eulerphi(n)), , 8))==[], s=concat(s, n))); s

Crossrefs

Cf. A000010, A000040, A243462.

Sequence in context: A295235 A136490 A129523 * A247805 A164713 A343185

Adjacent sequences: A243460 A243461 A243462 * A243464 A243465 A243466

Keyword

nonn,base

Author

Colin Barker, Jun 05 2014

Status

approved