A159614 Emirps with multiplicative persistence value 1.

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.

Links

Table of n, a(n) for n=1..45.

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

Cf. A006567, A046501.

Sequence in context: A158571 A176882 A272403 * A158087 A210546 A370848

Adjacent sequences: A159611 A159612 A159613 * A159615 A159616 A159617

Keyword

nonn,base

Author

Lekraj Beedassy, Apr 17 2009

Extensions

More terms from R. J. Mathar, Apr 29 2009

Status

approved