The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A182624 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A182624

Primes in A182623.
(history; published version)

#13 by Jon E. Schoenfield at Sat Aug 18 21:37:12 EDT 2018

STATUS

editing

approved

#12 by Jon E. Schoenfield at Sat Aug 18 21:37:10 EDT 2018

MAPLE

A182624:=sort(convert(A182624, list)):for n from 1 to nops(A182624) do if(A182624[n]>2*lim)then break:fi:printf("%d, ", A182624[n]):od: # _Nathaniel Johnston, _, Apr 19 2011

EXTENSIONS

More terms from _Vincenzo Librandi, _, Jan 30 2011

STATUS

approved

editing

#11 by Charles R Greathouse IV at Fri Jan 04 15:54:25 EST 2013

STATUS

editing

approved

#10 by Charles R Greathouse IV at Fri Jan 04 15:53:55 EST 2013

KEYWORD

nonn,base

STATUS

approved

editing

#9 by Russ Cox at Sat Mar 31 13:22:29 EDT 2012

EXTENSIONS

a(16) - a(44) from _Nathaniel Johnston (nathaniel(AT)nathanieljohnston.com), _, Apr 19 2011

Discussion

Sat Mar 31

13:22

OEIS Server: https://oeis.org/edit/global/888

#8 by Russ Cox at Fri Mar 30 17:34:04 EDT 2012

AUTHOR

_Omar E. Pol (info(AT)polprimos.com), _, Nov 23 2010

Discussion

Fri Mar 30

17:34

OEIS Server: https://oeis.org/edit/global/157

#7 by Nathaniel Johnston at Tue Apr 19 20:49:50 EDT 2011

STATUS

proposed

approved

#6 by Nathaniel Johnston at Tue Apr 19 20:49:40 EDT 2011

DATA

7, 13, 29, 61, 101, 107, 199, 211, 229, 241, 419, 449, 467, 479, 769, 823, 829, 859, 991, 1009, 1021, 1571, 1601, 1637, 1667, 1697, 1733, 1811, 1847, 1877, 1901, 1907, 1931, 3079, 3109, 3229, 3271, 3307, 3331, 3457, 3499, 3529, 3541, 3547

LINKS

Nathaniel Johnston, <a href="/A182624/b182624.txt">Table of n, a(n) for n = 1..2000</a>

MAPLE

lim:=1800: with(numtheory):A182624:={}:for n from 1 to lim do s:="": for d in divisors(n) do s:= cat(s, convert(convert(d, binary), string)): od: m:=convert(parse(s), decimal, binary):if(isprime(m))then A182624:=A182624 union {m}; fi: od:

A182624:=sort(convert(A182624, list)):for n from 1 to nops(A182624) do if(A182624[n]>2*lim)then break:fi:printf("%d, ", A182624[n]):od: # Nathaniel Johnston, Apr 19 2011

KEYWORD

nonn,more

nonn

EXTENSIONS

a(16) - a(44) from Nathaniel Johnston (nathaniel(AT)nathanieljohnston.com), Apr 19 2011

STATUS

approved

proposed

#5 by R. J. Mathar at Mon Jan 31 14:41:34 EST 2011

STATUS

proposed

approved

#4 by Vincenzo Librandi at Sun Jan 30 03:43:42 EST 2011

DATA

7, 13, 29, 61, 101, 107, 199, 211, 229, 241, 419, 449, 467, 479, 769

EXTENSIONS

More terms from Vincenzo Librandi, Jan 30 2011

STATUS

approved

proposed