OFFSET
1,1
COMMENTS
Complement of A208261 (nonprime numbers with all divisors starting and ending with digit 1) with respect to A208262 (numbers with all divisors starting and ending with digit 1). - Jaroslav Krizek, Mar 04 2012
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
102701 is a member as it is a prime and the first and the last digits are both 1.
MATHEMATICA
fl1Q[n_]:=Module[{idn=IntegerDigits[n]}, First[idn]==Last[idn]==1]; Select[ Prime[Range[1300]], fl1Q] (* Harvey P. Dale, Apr 30 2012 *)
PROG
(PARI) { n=-1; t=log(10); forprime (p=2, 5*10^5, if ((p-10*(p\10)) == 1 && (p\10^(log(p)\t)) == 1, write("b062332.txt", n++, " ", p); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 05 2009
(Haskell)
a062332 n = a062332_list !! (n-1)
a062332_list = filter ((== 1) . a010051') a208259_list
-- Reinhard Zumkeller, Jul 16 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jun 21 2001
EXTENSIONS
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jun 29 2001
Missing term a(36)=1901 added by Harry J. Smith, Aug 05 2009
STATUS
approved