|
|
A107937
|
|
Numbers n such that n and n-th prime have only one common digit = 6.
|
|
5
|
|
|
56, 136, 163, 256, 260, 262, 263, 264, 265, 266, 336, 365, 506, 516, 596, 607, 619, 625, 626, 627, 628, 629, 630, 633, 665, 688, 698, 746, 786, 796, 806, 826, 836, 846, 856, 860, 861, 863, 864, 865, 866, 868, 869, 960, 966, 968, 1006, 1067, 1106
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
s={}; Do[If[IntegerDigits[n]\[Intersection]IntegerDigits[Prime[n]]\[Equal]{6}, s=Append[s, n]], {n, 3000}]; A107937=s
Select[Range[1200], Intersection[IntegerDigits[#], IntegerDigits[ Prime[#]]] == {6}&] (* Harvey P. Dale, May 28 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|