|
| |
|
|
A262638
|
|
Base-10 representation of the primes at A262637.
|
|
3
|
|
|
|
2, 59, 16319, 261887, 4193279, 335527921, 108447661849, 4672099717159297, 4398209237750224927, 17990359701977183946703, 1799003029749921411529973, 5066896351045516069934415169, 4834760092472588512731587662879, 16859870882498008730755778659813363
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Clark Kimberling, Table of n, a(n) for n = 1..300
|
|
|
EXAMPLE
|
n A262637(n) base-10 representation
1 2 2
2 323 59
3 3332333 16319
|
|
|
MATHEMATICA
|
s = {2}; base = 4; z = 20; Do[NestWhile[# + 1 &, 1, ! PrimeQ[tmp = FromDigits[Join[#, IntegerDigits[Last[s]], Reverse[#]] &[IntegerDigits[#, base]], base]] &];
AppendTo[s, FromDigits[IntegerDigits[tmp, base]]], {z}]; s (* A262637 *)
Map[FromDigits[ToString[#], base] &, s] (* A262638 *)
(* Peter J. C. Moses, Sep 01 2015 *)
|
|
|
CROSSREFS
|
Cf. A262637.
Sequence in context: A139190 A050283 A096758 * A202622 A113549 A268432
Adjacent sequences: A262635 A262636 A262637 * A262639 A262640 A262641
|
|
|
KEYWORD
|
nonn,easy,base
|
|
|
AUTHOR
|
Clark Kimberling, Oct 24 2015
|
|
|
STATUS
|
approved
|
| |
|
|
