A201543-OEIS公司

A201543号

a（n）是不在{a（1），…，a（n-1）}中的最小正整数，使得a（n”）的最低有效数字和a（n-1）的最高有效数字之和是素数，其中a（1”=1。

1, 2, 3, 4, 7, 6, 5, 8, 9, 12, 11, 14, 16, 21, 10, 22, 13, 24, 15, 26, 19, 31, 18, 32, 20, 23, 25, 29, 30, 28, 33, 34, 38, 40, 17, 36, 42, 27, 35, 44, 37, 48, 39, 50, 46, 41, 43, 47, 49, 51, 52, 56, 58, 60, 45, 53, 62, 55, 66, 57, 68, 61, 65, 67, 71, 54, 70, 64, 75, 74, 76, 80, 59, 72, 84, 63, 77, 86, 69, 81, 73, 90, 78, 94, 82, 79, 96, 88, 83, 85, 89, 93, 92, 98, 102, 91, 104, 101, 106, 111, 112, 114, 116, 121, 122 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`埃里克·安吉利尼是这个序列的创始人。人们认为序列是正整数的错位。`
	链接	`n=1..105时的n、a（n）表。`
	例子	`a（1）=1，因此a（2）>=2。由于a（1）的最高有效数字+a（2）的最低有效数字等于3，因此a（2。`
	MAPLE公司	`A201543号：=进程（n）` `选项记忆；` `如果n=1，则` `1;` `其他的` `对于2 do中的a` `如果[seq（procname（i），i=1..n-1）]中没有a，则` `adgs:=转换（a，base，10）；` `a1dgs:=转换（进程名（n-1），基，10）；` `如果isprime（op（1，adgs）+op（-1，a1dgs）），则` `返回a；` `结束条件：；` `结束条件：；` `结束do：` `结束条件：；` `结束进程：` `n从1到120 do` `printf（“%d，”，A201543号（n））；` `结束do：#R.J.马塔尔2011年12月14日`
	数学	`ericPrimer[1]：=1；集合属性[ericPrimer，Listable]；ericPrimer[n_]：=ericPrimer[n]=模块[{iter，prevEPs=ericPremer[Range[n-1]]，notFound=True}，iter=补码[Range[最大[prevEPs]+1]，prevEP][1]；While[notFound，While[MemberQ[prevEPs，iter]，iter++]；notFound=Not[PrimeQ[IntegerDigits[iter][[1]]+IntegerPigits[prevEPs[[-1]][[-1]]]；如果[notFound，iter++]]；返回[iter]]；ericPrimer[范围[100]](阿隆索·德尔·阿特2011年12月2日）`
	交叉参考	`上下文中的序列：A337305 A264966型 A308728型A073666号 A092842号 A343600型` `相邻序列：A201540型 A201541号 A201542号A201544型 A201545型 A201546号`
	关键字	`非n,基础`
	作者	`克里斯托弗·亨特·格里布尔2011年12月2日`
	状态	`经核准的`