|
Search: id:A083289
|
|
|
| A083289 |
|
Least k such that 10^n+k is a brilliant number (cf. A0789721). |
|
+0
1
|
|
| 3, 0, 21, 3, 201, 13, 18081, 43, 140049, 81, 600009, 147, 6000009, 73, 380000361, 3, 1400000049, 831, 14000000049, 49, 380000000361, 987, 600000000009, 691, 78000000001521, 183, 740000000001369, 4153, 6200000000000961, 279
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
If n is an even positive exponent, then a(n) is the first prime greater than 10^(n/2) squared less 10^n.
|
|
LINKS
|
Dario Alejandro Alpern, Brilliant numbers
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; LengthBase10[n_] := Floor[ Log[10, n] + 1]; f[n_] := Block[{k = 0}, If[ EvenQ[n] && n > 1, NextPrim[ 10^(n/2)]^2 - 10^n, While[fi = FactorInteger[10^n + k]; Plus @@ Flatten[ Table[ # [[2]], {1}] & /@ fi] != 2 || Length[ Union[ LengthBase10 /@ Flatten[ Table[ # [[1]], {1}] & /@ fi]]] != 1, k++ ]; k]]; Table[ f[n], {n, 0, 30}]
|
|
CROSSREFS
|
Cf. A078972, A084475, A084476.
Sequence in context: A151814 A102840 A009353 this_sequence A108196 A013460 A013388
Adjacent sequences: A083286 A083287 A083288 this_sequence A083290 A083291 A083292
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Jun 03 2003
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 27 2003
|
|
|
Search completed in 0.002 seconds
|
