[go: up one dir, main page]

login
A107935
Numbers n such that n and n-th prime have only one common digit = 4.
5
14, 84, 234, 244, 364, 400, 401, 471, 480, 481, 482, 484, 485, 487, 488, 496, 547, 548, 554, 564, 604, 640, 641, 642, 643, 644, 645, 646, 647, 649, 654, 840, 842, 940, 942, 943, 944, 946, 1004, 1054, 1124, 2004, 2204, 2244, 2245, 3004, 3041, 3048
OFFSET
1,1
MATHEMATICA
s={}; Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]=={4}, s=Append[s, n]], {n, 4000}]; A107935=s
CROSSREFS
Sequence in context: A323415 A166389 A085036 * A008451 A033276 A006858
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 08 2005
STATUS
approved