|
| |
|
|
A159614
|
|
Emirps with multiplicative persistence value 1.
|
|
0
| |
|
|
13, 17, 31, 71, 107, 113, 311, 701, 709, 907, 1009, 1021, 1031, 1033, 1061, 1069, 1091, 1097, 1103, 1109, 1151, 1181, 1201, 1213, 1231, 1301, 1321, 1409, 1511, 1601, 1811, 1901, 3011, 3019, 3023, 3049, 3067, 3083, 3089, 3109, 3121, 3203, 3301, 3407, 3803
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Intersection of A006567 and A046501.
|
|
|
MAPLE
| read("transforms3") ; A031346 := proc(n) local nm, a, d ; nm := n ; a := 0 ; while nm > 10 do nm := mul(d, d=convert(nm, base, 10)) ; a := a+1: od: a ; end: L := BFILETOLIST("b006567.txt") : for i from 1 to 300 do if A031346(op(i, L)) = 1 then printf("%d, ", op(i, L)) ; fi; od: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 29 2009]
|
|
|
CROSSREFS
| A006567, A046501
Sequence in context: A143863 A158571 A176882 * A158087 A126808 A053009
Adjacent sequences: A159611 A159612 A159613 * A159615 A159616 A159617
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Lekraj Beedassy (blekraj(AT)yahoo.com), Apr 17 2009
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 29 2009
|
| |
|
|
