login
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
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: # R. J. Mathar, Apr 29 2009
CROSSREFS
Sequence in context: A158571 A176882 A272403 * A158087 A210546 A370848
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 17 2009
EXTENSIONS
More terms from R. J. Mathar, Apr 29 2009
STATUS
approved